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EDITORIAL 


THIS MONTH'S MAGAZINE 

If you are interested in programming, then you should find the Utility Editor in 
this issue of considerable help and interest. The program includes facilities to 
search for, or to search for and replace, any string of characters in your own 
program, including Basic keywords, very useful, for example, if you want to change 
the name of a variable throughout your program, and it will also list out all your 
functions and procedures and tell you where they are. 


And talking of functions and procedures, if these are something that you are 
still not quite sure about, the article by Rob Pickering and Philip Le Grand will 
really help you on your way. The article also tells you how you can build up a 
library of your own most useful routines. 


Your first library routine could well be the procedure described in another of 
this month's articles which allows you to save to cassette any screen display, such 
as those that you can produce using ASTAAD, our computer aided design program that 
we published in issue No.3. The article also tells you how to re-display any screen 
image that you have previously saved to cassette. 


If you read the article on saving screens, you will see that we are running a 
competition with a prize for the best screen Cisplay sent to us. The prize is being 
donated by SIR Computers of Cardiff, and will be one of their new add-ons for the 
Electron. This product, a ROM expansion board, is now available, and you can read 
all about it in this month's review. , 

We have also just heard that the second add-on from SIR Computers 1S now 
available, an interface for printer and joysticks, which we shall also be reviewing. 

There are many more articles, programs and reviews, including three more 
excellent games for your enjoyment, making this, without doubt, one of the best 
issues of ELBUG yet. 

POSTBAG 

I said last month how much we enjoy hearing from you, particularly if you have 
any ideas of articles or programs you would like to see appearing in the magazine. 
You also continue to be very complimentary about the magazine and this includes one 
reader who was so pleased that he asked if we could produce the magazine every week, 
and not just every month! Phew! 

ADVERTISING SUPPLEMENT 

As you may know the advertising supplement is sent out to readers of both ELBUG 
and BEEBUG, our highly successful magazine for users of the BBC micro. All the time, 
we are taking steps to make this more useful and interesting to ELBUG readers, 
including our own Software Club offers. Do remember that many of our advertisers, 
and this includes dealers listed in our Readers' Discounts pages, do cater for 
Electron users and will help ELBUG members. 


Mike Williams 


TICE BOARD NOTICE BOARD NOTICE BOARD NOTICE BOA 


In response to requests from ELBUG members, we have decided to make available 
each month, a cassette containing all the programs from that month's magazine. We 
will be giving all the details of this, and of cassettes for all back copies, in the 
next issue of ELBUG. 


We have now installed a telephone line to deal with any enquiries you may have 
relating to magazine subscriptions, orders for backcopies, software etc. It will not 
be possible to answer technical queries over the telephone. The number to ring is St 
Albans 66263 and the line will be manned from 1pm to 4pm each weekday. © 
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INVASION OF THE ALIENS 
by Alan Webster 


This is a space invader type game 
for one player in which the object is 
to destroy all of the descending aliens 
(isn't it always?). The game starts 
with one alien attempting to 'land' on 
the surface of the planet. If you 
succeed in zapping it, then you move 
onto the next sheet with two aliens. 
This goes on until you have beaten off 
the sheet with six of the creatures, 
whereupon the game restarts with just 
one alien, but becomes faster...and 
faster...and faster...! 


You have three lives to play with 
and you lose one every time an alien 
lands. After losing all of your lives 
your score is displayed and the highest 
score shown. 


Your weapon is aimed by moving a 
cross-sight until it is centred on an 
invader. The keys to use are as 
follows: 

Z Left : Up 
X Right / Dow 


Space Bar to Fire 


As you line up your sight, the alien 
erects a temporary psychokinetic force 
field which hides it from view, though 
without creating any protection from 
your missile. 


You score 1 point for every alien 
hit on the first wave (sheets 1 to 6), 
two points on the second wave and so 
on. You are also limited to the number 
of missiles you can fire and this is 
displayed at the bottom centre of the 
screen and is given in line 200. It is 
set to 25 in the program listed, but of 
course you can change this to make the 
game easier or harder. 


1@ REM PROGRAM INVASION 
208 REM AUTHOR Alan R. Webster 
36 REM VERSION E@.1 
46 REM ELBUG APRIL 1984 
50 REM PROGRAM SUBJECT TO COPYRIGHT 
60: 
186 ON ERROR GOTO 17190 
118 MODES 
128 EK%=@0:FR3=0 
138 VDUI9,1,11,9,8,9 
148 PROCchr 
15@ HI$=@0:DIM 2(5,2) 
168 SC%=6:LV%=3:RS=19 
176 FORTW3=8 TO 5 
186 SOUND1,-10,235,1 
198 OTS=TW3 
208 BS=25 
210 GF%=0 
228 PX=9:PY=16:CLS 
238 PROCscene 
246 I%=1 
25@ PROCstars (189) 
266 PROCrndm 
270 IFI%=11%=2ELSEI%=1 
288 PROCalmove 
298 SOUNDG,-(RND(5)+19),7,1 
308 IFLV%<1 PROCendgame: GOTO! 69 
318 FORLP$=1TOR$+ (RSANDFR3=6) 
328 PROCplmove 
338 COLOUR2 
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346 PRINTTAB (2,31) ;SC%;TAB(17,31) ;LV% 


358 COLOUR3 

368 PROCfire 

378 NEXTLP% 

388 IFEK3=TW3+1 EK%=08:NEXTTW% 

398 IF TW%=6 RS=R$-2:GOTO17@ ELSE27@ 
460 END 


1808 DEFPROCscene 

1818 VYDU23,1,0;9;0;6; 

1628 VDU23,255, 255,255,255, 255,255,255 
52050255 

1038 FORA%=1TO18: PRINTTAB (A%, 38) ;CHRS2 
55:NEXT 

1649 VDU23,254,8,8,28,28,62,62,127,127 
1050 PRINTTAB (9,29) ;CHRS254 

1868 ENDPROC 

1070: 

1688 DEFPROCstars (A$) 

1698 FORA1%=1TOA$%:GCOLG, RND (3) 

1188 PLOT69, RND (1280) -1,RND(98G) +123 
1118 NEXT: ENDPROC 


1126: 

1138 DEFPROCchr 

1140 VDU23,224,24,24,36,231,231,36,24, 
24 

115@ VDU23,225,102,153,68,98,126,60,66 
7129 

116@ VDU23,226,129,90,60,98,126,60,66, 
36 

1178 ENDPROC 

1186: 

1198 DEFPROCrndm 

1206 FORAS=OTOTW$:Z (A$,@)=RND(18) :Z(AS 
71) =@0:Z(A%,2) =1:NEXT 

1218 ENDPROC 

1228: 

1238 DEFPROCplmove 

1248 OX=PX:OY=PY 

1250 IFINKEY-98ANDPX>1GF3$=GF%-1 

1260 IFINKEY-67ANDPX<1 8GF$=GF%$+1 


1278 IF ABS(GF%)=2 PX=PX+SGN (GF$) :GFS= 
) 

1286 IFINKEY-1 @5ANDPY<27PY=PY+1 

1298 IFINKEY-73ANDPY>@PY=PY-1 

1308 PRINTTAB (OX,OY) ;"_ ":COLOUR3: PRINT 
TAB (PX, PY) CHRS$224 

1318 ENDPROC 

1320: 

1338 DEFPROCalmove 

1348 FORAS=9TOTWS 

1350 IFZ(A%,2)=@ GOTO 1449 

1360 PRINTTAB(Z(A%,@) ,Z(A%,1)) SPC) 

1370 Z(A%,1)=Z(A%,1)+1:Z(A%,@) =Z (AS, @) 
+ (RND (3) -2) 

1388 G%=Z (A%,G) 

1390 IFG<1Z(A%,9) =) 

1498 IFG$>18Z(A%,@)=18 

1418 IFZ(A%,1)=29 AND G%=30RG3=90RG=1 
6 Z(A%,@)=Z(A%,9) +1 

1420 COLOUR]: PRINTTAB (Z(A%,@) ,2(A$,1)) 


CHRS (224+1%) 


1430 IFZ(A%,1)=29 Z(A%, 2) =G:LVS=LV3-1: 
EK$=EK$+1 :FORSD$=1TO2:SOUND1,-15,5,4:SO 
UND1,-15,1,4:NEXT 
440 NEXT 
458 ENDPROC 
1464: 

1478 DEFPROCendgame 

1480 AS=INKEY (319) 

1498 CLS 

500 PRINTTAB(3,15) ;"YOUR SCORE:";SC% 
151@ IFSC3>HISHI3=SC% 

152@ PRINTTAB(3,17);"HI SCORE :";HI$ 
530 *FX15,0 

548 COLOUR3: EK%=@ 

558 S=GET 

1568 ENDPROC 

1578: 

1586 DEFPROCfire 

1598 FR&=0 

1600 IFINKEY-99ANDB3>GFRE=688 

161@ IFFR%=8 ENDPROC 

1620 FX=64*PX+32:FY=1924-(32*PY)-16 

1638 FR1%=96 

1646 MOVEFR$,FR1%:DRAWFX, FY:GCOLG,@ 

1658 FORYS=OTOTWS: IFPX=Z (Y%,@) ANDPY=Z ( 
Y%,1)ANDZ (Y%,2)<>@ Z(Y%,2)=@0:SC%=SC3+11 
—R$: EK$=EK$+1 : SOUND] ,-15,180,1:SOUND1,- 
14,2,1:SOUND1,-15,208,1 ELSE SOUND1,-18 
7235,1 

1668 NEXT 

1670 MOVEFR$,FR1%:DRAWEX,FY:GCOL@, 3 

1680 B3=B3-1: PRINTTAB (9,31) ;B%;CHRS$32; 

1698 ENDPROC 

1768: 

1718 ON ERROR OFF 

1728 MODE6 

1738 IF ERR=17 END 

174G REPORT: PRINT" at line ";ERL 


1758 END @ 
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ELECTRON GRAPHICS (Part 5) 


by Mike Williams 


We continue our introductory series on Electron Graphics by looking 
this month at the use of the PLOT command, the most comprehensive of 
the various graphics commands available on the Electron. 


Last month we looked at the MOVE and 
DRAW commands, and their use in drawing 
a variety of open geometrical shapes 
(triangle, rectangle, circle, polygon). 
In most of these examples we wrote 
short and flexible procedures for the 
task in hand, something we shall 
continue to do this month. 


THE PLOT COMMAND 

The PLOT command, available in BBC 
Basic, is a general graphics command 
having many different uses. The format 
of the command is always the same: 

PLOT k, X, y 
The value of k, which can nominally be 
any value in the range @ to 255, 
determines the exact function carried 
out by the PLOT command. The values of 
x and y refer to a point on the 
graphics area of the screen as 
explained last month (1280 points 
horizontally, 1824 points vertically). 


FILLING TRIANGLES AND RECTANGLES 

The first, and one of the most 
useful applications of the PLOT command 
is in producing filled shapes on the 
screen. The command: 

PLOT 85, X, Y 
will plot and fill a triangle on the 
screen using the drawing colour 
currently set by the GCOL command (or 
white by default). The three vertices 
(or corners) of the triangle are taken 
to be the last two points previously 
specified and the point x, y given in 
the PLOT command itself. For example 
try the following short program: 


166 MODE 2 

116 GCOL 6,3 

126 MOVE 266,100 
136 MOVE 648,800 
146 PLOT85, 1680,186 
15@ END 


The program is written in Mode 2 and 
selects yellow (colour 3) as the 
drawing colour. Using two MOVE commands 
and one PLOT 85 command, a yellow 
filled triangle is then drawn using 


(206, 100), (646, 868) and (1980, 100) 
as the three vertices. You will notice 
that the two sloping sides of the 
triangle have a stepped appearance. 
This appearance depends on the 
resolution being used (low resolution 
in Mode 2). If you try the same program 
using Mode 1 (medium resolution) and 
Mode @ (high resolution) you will be 
able to see the effect that this has. 
You may also wish to refer back to last 
month's article for more information on 
resolution. 


A filled triangle is the only shape 
that is immediately available to us, 
and so any other filled shape must 
usually be constructed from triangles. 
Consider, for example the task of 
drawing a filled rectangle. 


Suppose we want a green rectangle, 
496 units high by 6@@ long and with the 
bottom left hand corner in position 
(206, 106). It is worth just trying to 
work out the sequence of commands for 
yourself, and to see how few you really 
do need. A rectangle is, of course, 
made up from two triangles and the 
shortest way of achieving this is as 
follows: 


108 MODE 2 

116 GCOL @,1 

128 MOVE 200,106: MOVE 200,500 

136 PLOT 85,880,100:PLOT 85,800,500 
148 END 


Notice how, by moving from one 
vertex to the next in the right order, 
we can draw our rectangle with just 
four commands. Basic always remembers 
the co-ordinates of the last two points 
visited. 


We can rewrite this as a procedure 
which will display a square of any 
size, and in any colour, anywhere on 
the screen. The procedure, 
PROCfillsquare, is defined as follows: 
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18@ MODE 2 

116 ON ERROR GOTO 1908 

120 REPEAT 

130 colour=RND (7) :size=RND (1088) 
140 x=RND(1279): y=RND(1823) 

15@ PROC£fillsquare(colour,size,x,y) 
168 UNTIL FALSE 

176 END 


198 ON ERROR OFF:MODE 6 
208 REPORT:PRINT" at line ";ERL:END 


1006 DEF PROCfillsquare(colour,size,x, 


1818 GCOLG,colour 

1028 MOVE x,y: MOVE x,y+size 
1036 PLOT 85,x+size,y 

1046 PLOT 85,x+size,y+size 
1858 ENDPROC 


By including the procedure in a loop 
as shown below, we can randomly display 
coloured squares on the screen. 


1@ REM Program FILLSQUARE2 
20 REM Version B1.1 
3@ REM Author Mike Williams 


40 REM BEEBUG April 1984 
50 REM Program subject to Copyright 


We can use a Similar procedure to draw 
rectangles, or any four sided filled 
shape, and indeed shapes of more than 
four sides. 


ALTERNATIVE TECHNIQUE 

There is a quite different technique 
that can be used to produce coloured 
rectangles. This uses the VDU24 command 
to define a graphics window on the 
screen. The required colour is then set 
as the background colour by using 
GCOLG,128+C where C is the colour in 
the range 6-15 (for Mode 2 at least). 


Simply executing the CLG command will 
then 'paint' the graphics window in the 
colour specified. The following short 
routine will draw the same yellow - 
coloured rectangle as before. 


186 MODE 2 

1186 GCOL 6,129 

126 VDU 24,208; 180; 800; 500; 
138 CLG 

148 END 


This technique is worth knowing, as it 
is quite short and quick, but it is 
more limited as only rectangles (or 
squares) may be Grawn, and the 
rectangle must be wholly within the 
normal screen area, or the VDU24 
command has no effect. You may also 
need to cancel the VDU24 command after 
use with VDU26 to avoid any lasting and 
unwanted effects. 


FILLED CIRCLES 

We will now look at how we can use 
the triangle filling facility to 
generate filled circles. As we saw last 
month, a circle is just a polygon with 
a large number of sides. We can readily 
amend our circle program from last 
month to produce a filled circle, made 
up of many triangles, all touching at 
the centre. 


186 MODE 2: GCOL @,1 

11@ VDU29,640; 512; 

126 radius=200 

138 MOVE radius,@ 

148 FOR angle=@ TO 2*PI STEP PI/16 
150 x=radius*COS (angle) 

168 y=radius*SIN (angle) 

178 MOVE @,@:PLOT 85,x,y 

186 NEXT angle 

198 END 


Each time the program moves round 
the circumference from one point to the 
next, it fills in a triangle from those 
two points to the centre of the circle. 
The order of visiting the three points 
of the triangle is important in 
producing an efficient routine. This is 
again low resolution graphics (Mode 2) 
and it is worth experimenting with 
medium and high resolution (Modes 1 and 
8) to see the effects produced. If you 
compare the program above with the one 
written last month for drawing an 
outline circle you should see many 
similarities. 

» 
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We can easily turn our filled circle 
routine into a procedure, either by 
following the pattern of last month's 
fast circle drawing , procedure, first 
setting up a table of sines and cosines 
to speed up the subsequent circle 
drawing, or by using the basic but 
slower routine used above. 


This month, I have chosen to use the 
simpler method and the results are 
shown in the program below which 
displays circles of random size and 
colour, randomly positioned on the 
screen. 

1@ REM Program FILLCIRCLE3 
20 REM Version El.1 89/03/84 
30 REM Author Mike Williams 
4@ REM ELBUG April 1984 
50 REM Program subject to Copyright 
68 : 
106 MODE 2 
118 ON ERROR GOTO 196 
12@ REPEAT 
138 colour=RND (7) :radius=RND (698) 
140 x=RND (1279) :y=RND (1923) 
15@ PROCfillcircle(colour,radius,x,y) 
168 UNTIL FALSE 
170 END 


198 ON ERROR OFF:MODE 6 

200 REPORT:PRINT" at line ";ERL:END 
216 : 
1000 DEF PROCfillcircle(colour,radius, 

X,Y) 

1018 LOCAL angle,X,Y 

1626 VDU29,x;y;:GCOL 8,colour 

1638 MOVE radius,@ 

1649 FOR angle=9 TO 2*PI STEP PI/16 
1058 X=radius*COS (angle) 

1068 Y=radius*SIN (angle) 

1976 MOVE @,@:PLOT 85,X,Y 

1688 NEXT angle 

1898 ENDPROC 


This last program also shows very 
clearly that, just as with DRAW and 
MOVE, no error occurs if the shape 
ing drawn goes off the visible screen 


The final program for this month 
shows how the three commands of MOVE, 
DRAW and PLOT can be combined together 
in a simple procedure that gives an 
appearance of depth to the screen 
display. Most of the work in this 
program is done by a procedure called 
PROCcube. The purpose of this procedure 
is to display a cube on the screen with 
a specified colour, size and position. 
This is really just an extension of our 
earlier filled square procedure. 


A cube, as displayed on the screen, 
consists of a square (just as before) 
together with two paralellograms, one 
adjacent to the top edge amd one 
adjacent to the right-hand edge of the 
square. The furthest visible corner of 
the cube is chosen to be 9.6 of the 
size of the cube in distance from these 
two edges. This is quite arbitrary, the 
value really depending on the effect 
you want to achieve. This is not a true 
perspective, aS opposite sides are 
parallel, not converging to a vanishing 
point, but at least it keeps the maths 
quite simple. 


In order to emphasize the 3D effect, 
the three edges of the cube separating 
the visible faces are drawn over the 
top of the coloured faces using a 
colour logically one more than that 
used for the cube as a whole. 


As with the other programs, this one 


repeatedly calls the procedure to place » 
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cubes randomly = on the screen. 
Nevertheless the results are both 
colourful and effective. 


1@ REM Program CUBES 

20 REM Version E1.0 

30 REM Author Mike Williams 

40 REM ELBUG April 1984 

50 REM Program subject to Copyright 


168 MODE 2 

11@ ON ERROR GOTO 198 

12@ REPEAT 

130 x=RND(1624) :y=RND (1824) 

14@ size=RND (598) :colour=RND (7) 
158 PROCcube (colour,size,x,y) 
168 UNTIL FALSE 

178 END 

188 : 

198 ON ERROR OFF:MODE 6 

200 REPORT:PRINT" at line ";ERL:END 
216 : 


1088 DEF PROCcube (colour ,size,x,y) 
1918 GCOL G,colour 

1628 MOVE x,y:MOVE x,yt+size 

1639 PLOT 85,x+size,y:PLOT 85,x+size,y 


+size 


164@ PLOT 85,x+1.6*size,y+0.6*size 
1050 PLOT 85,x+1.6*size,y+1.6*size 
1866 MOVE x+size,yt+size 

167G PLOT 85,x+0.6*size,y+1.6*size 
168 PLOT 85,x,y+size 

1898 GCOL @, (colour+1)MOD8 

1108 DRAW x+size,y+size:DRAW x+tsize,y 
1118 MOVE xtsize,yt+tsize 

1128 DRAW x+1.6*size,y+1.6*size 

1138 ENDPROC 


Next month we will look at ways of 
filling more irregularly shaped areas 
on the screen, together with some of 
the other applications of the PLOT 


command. ® 


HINTS HINTS 


CHANGING THE FLASH RATES 


HINTS 


HINTS HIN 


The rate at which the flashing colours flash, can be changed using *FX9,m and 


*FX10,S where m and s are described below. 
*FX9,@ forces the first named colour to show continually. 
*FX9,m sets the mark duration for the first colour, with m in 5@ths of a second 
*FX18,@ forces the second named colour to show continually. 
*FX16,S sets the space duration for the second named colour, with s in 5@ths of a 
second. 
Initially the values of m and s are 25. Bo 


SPACE INVADER PROMPT 

The VDU 23 call can be used very amusingly to re-define the prompt symbol '>' to 
be a space invader. Try the following: 
VDU23,62,68,126,219,255,126,60,36,66 <return> @ 


POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG 


Dear Sir, 

Due to the shortage of Electron 
software on the market, I thought it 
would be a good idea to publish a list 
in your magazine of all the BBC micro 
software which will run reasonably well 
on the Electron. The games which I have 
found to work weil are: 

DARE DEVIL DENNIS 

by Vision Software. 

GALACTIC COMMANDER by Micro Power. 

MONSTERS by Acornsoft. 

3D-BOMB ALLEY by Software Invasion. 

VORTEX by Software invasion. 


These games work, though any logos or 
title pages appear as gibberish. 
Finally I would like to congratulate 
you on your superb magazine. I find it 
interesting, useful and fun, and the 
games are always well worth the effort 
of typing them in. 

M.Ryemill 
Reply: 

We hope other members will find this 
useful, though there are now versions 
of Dare Devil Dennis and Monsters 
available for the Electron, and othe 
programs will soon follow. ry 
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SAVING AND LOADING SCREEN DISPLAYS 


by David A. Fell 


SE SE SE ES EE SET 


On the Introductory Cassette that comes with each Electron, there 
are two programs called ISLAND and PLANETS which each load a 
‘picture' from cassette to the screen, and display two apparently 
moving displays: one of an island, and one of a number of planets 
against a starry background. David Fell now explains how to load and 
save such screens to cassette, and presents a procedure to help you. 


When the Electron displays a screen, 
it is reading data from an area of 
memory, called 'screen memory', and 
converting it into electrical signals 
that are fed to your TV (or monitor). 
Thus, it is the contents of the screen 
memory that dictate what will be shown 
on your display, and by altering this 
memory, we can alter what is displayed. 
With a cassette recorder attached to 
your Electron, you can easily save the 
contents of the screen memory, and load 
it back in again at a later date in 
such a way as to exactly reproduce the 
picture first obtained. We present here 
@ procedure which you may append to any 
screen generating program in Basic, to 
allow screens to be saved to cassette. 
It is easy to use, and does not even 
require you to tell it what screen mode 
is in use - it works it all out for 
itself. To use this procedure, proceed 
as follows: 


a) Type in the procedure, and save it 
to tape in the way described in the 
article ‘Using Functions and 
Procedures' found elsewhere in this 
issue. 


b) Load the program to which the 
procedure is to be appended, and check 
that the line numbers do not clash. If 
they do, you should renumber the main 
program first. 


c) Exec in the procedure (in the manner 
described in the above mentioned 
article). 


You should now have a copy of your 
program with the screen procedure 
appended. Next simply insert the 
following line into your main program 
at the point where you wish the screen 
to be saved: 


PROCsavescreen 

Whenever the program comes across this 
command, the screen saving procedure 
will be entered. This will produce a 
beep to tell you to start your recorder 
(in record mode), and another beep when 
the screen has been saved. Visual 
prompts obviously cannot be used, since 
they would interfere with the display 
to be saved. 


There is one limitation to the 
saving of screens in this way - the 
screen must NOT have been scrolled 
after the last change of mode before 
the save is performed (unless you are 
using 'windows'). 


RE-LOADING THE SCREEN 

The screen saved using the procedure 
presented here will be given the name 
SCREEN. To re-load it, change to the 
correct mode (the mode in which the 
screen was saved), and then type: 


*OPT] <return> 
*LOAD SCREEN <return> 


The * is vital, and SCREEN does not 
need to be enclosed in quotes. As it 
loads, you should see your picture 
build up from the top downwards. 


NOTE: The command *OPT1 prevents any of 
the normal screen messages appearing 
while saving the screen image. You can 
return to the normal state by typing 
*OPT <return> 

or by just pressing Break. 


1086 DEF PROCsavescreen 

1618 *OPT1 

1G2@ LOCAL A3,B% 

1636 A$=135:A$=USR (&FFF4) AND&FFOO8G 
1048 AS=ARDIVE1GG0G 

1056 IF A&<3 BS=&308G 

1068 IF A%=3 BY=&4000 

1078 IF A%=4 OR A%=5 BS=&580G 
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1686 IF At=6 BS=&608G 


1996 VDU7 START ADDRESS 
1108 *FX138,0,13 she 
1118 OSCLI("SAVE SCREEN "+STRS~BS+" shit 
JEFF") &3088 
1126 *OPT pens 
& 
1138 ENDPROC £5800 
TECHNICAL NOTES £6000 
You can also save the screen by If you manage to create any nice 
typing in the command directly (or screen images that you think might be 
include the command directly in your of interest to other readers, just save 
program) by means of the operating them on a cassette, and send them in to 
system *SAVE command. This is used in us at the editorial address. We will 
the form of: publish the best of these in the 
*SAVE <filename> <start address> 7FFF magazine and will award as a prize, to 
where 'filename' is the name of the the author of the most outstanding 
file that you want the screen to be display, one of the new SIR ROM 
saved as, and 'start address' is a expansion boards for the Electron (see 
hexadecimal number representing the our review of this new product 
start address of the screen memory. The elsewhere in this issue). The closing 
table below shows the start address of date for your entries is 3@th April, 
screen memory for the 7 screen modes of and the Editor's decision will be 
the Electron. final. hi 
HINTS HINTS HINTS HINTS HINTS 


EASIER ENTRY OF LOWER CASE VARIABLE NAMES - K.Walker, J.Hewes and many others 

When in normal upper case mode, if shift is pressed with a letter key, the letter 
comes out in lower case. This mechanism allows lower case text to be very easily 
entered as part of a program. This is particularly useful for entering variable and 
procedure names in lower case characters. 


RANDOM_EVENTS 

If you want something in a program to happen at random you should use the RND(n) 
command. For example to make PROCEXPLODE happen on average once in every six tries 
use: 
IF RND(6)=1 THEN PROCexplode ®@ 


TWO KEY ENTRY FOR ENDPROC 

The Electron allows a number of Basic commands to be entered just using 'Func' 
and a single key. For example, Func-Z and Func-X can be used to produce the keywords 
END and PROC respectively. However, if you combine both keys, the keyword ENDPROC is 
formed; i.e. press and hold down the Func key, and then press Z followed by X. e 


EASIER VIEWING OF TEXT - N.Haigney 

To make your Electron have the same screen appearance as that obtained on the 
"COMPUTER PROGRAMME" on television (blue with black stripes), use 
*KEY] MODE 6:VDU td dt li <return> 
Pressing function key one will select Mode 6 and turn the background to blue. This 
is also one of the functions of the KEYSET program included on the ELBUG 
introductory cassette. 

@ 
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NEW ELECTRON ADD-ON FROM SIR COMPUTERS 
Reviewed by David Fell and Philip Le Grand 


We review here the new ROM expansion board for the Electron from Sir 
Computers, who seem to have won the race to produce the first 


Electron add-on. 


WHAT IS A ROM BOARD? 

You may well be wondering what a ROM 
board is and why you might need one. To 
explain, consider the case of the BBC 
micro. One of the features that makes 
this micro stand out from the 
competition is the ability to plug in 
special memory chips containing, for 
example, other programming languages 
and utility software. These memory 
devices are in two forms known as ROMs 
(Read Only Memories) or EPROMs (a 
reusable form of ROM). Their contents 
cannot be altered by writing to them, 
unlike the normal RAM (Random Access 
Memory) used for your own programs and 
data in your Electron. The BBC micro is 
capable of accessing up to sixteen 
different ROM devices, but the Electron 
does not include the necessary hardware 
for this task. This has _ prompted 
several hardware manufacturers to 
design suitable add-on units to rectify 
this situation. Sir Computers of 
Cardiff appear to have won the race to 
produce the first  production-line 
product. 


The Sir add-on ROM pack complete 
unit consists of two circuit boards 
enclosed in a case and a manual. The 
whole unit plugs in to the rear of the 
Electron and itself has a further 
identical connector allowing for even 
more expansion. 


The unit is very large - the main 
circuit board used is slightly larger 
than the Electron's main circuit board 
- and is constructed to a very high 
standard. However, it is a pity that 
the high quality of the design did not 
continue on to the edge of this board. 
Our review board used several small 
edge connectors, which did not appear 
to be very strong, in order to connect 
the two boards that are used together. 


We plugged a BBC micro Graphics ROM 
into the expansion board, and on 


connecting the unit to an Electron, 
switching on, and typing 

*HELP <return> 
the following message was displayed: 


GRAPHICS EXTENSION 1.93 
OS 1.06 


This proved that the board was working 
- at least to the extent of being able 
to recognise the Graphics ROM. In fact 
almost all the commands offered by this 
ROM worked well on the Electron. 


The board was then filled to its 
capacity of twelve BBC micro ROMS - 
there being no available Electron ROMs 
at present. The Electron's power supply 
withstood the extra load imposed upon 
it by this. However, the majority of 
the software tested failed to operate 
correctly, if it worked at all. This is 
in no way due to Sir's add-on unit. In 
fact the only ROMs which operated 
correctly were VIEW and BCPL, both 
written by Acornsoft. The high failure 
rate was largely due to the extensive 
use of Mode 7 which is not available on 
the Electron. The Acornsoft ROMS are 
not mode dependent. 
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The board offers the user several 
configurations for ROM and RAM. All the 
options are link selectable, i.e. no 
soldering is required. The first four 
sockets can be configured to accept any 
combination of 2K, 4K, 8K, or 16K ROM 
or static RAM devices. The ability to 
mix devices allows ROM based software 
to be fully self contained with its own 
RAM workspace, without taking any of 
the precious user RAM, but any extra 
RAM added to the board in this way 
cannot be used to extend the main 
memory area of the Electron. The rest 
of the sockets will accept 8K or 16K 
ROM devices, but can be individually 
changed to take 2K or 4K devices. 


Despite the apparently precarious 
connection of the ROM board to the 
Electron, which is somewhat reminiscent 
of the old ZX81 RAM pack, the computer 
failed to crash despite repeated 
attempts on our part to induce failure. 
We understand from Sir Computers that 
both boards, in production models, will 
be enclosed in a single case, the back 
of which will forma direct image of 
the rear of the Electron, allowing 
other peripherals to be added. Our 
review sample, a pre-production unit, 
was without a case. 


It would not be fair to comment too 
much on the manual we received since it 
was a pre-release version, although the 
text and diagrams in it were clear and 
precise about the various’ options 
available to the user. The final 
version will, we understand, be a small 
booklet with a couple of extra example 
programs showing how to use the RAM 
options. 


In conclusion, the expansion system 


performed well and = allowed great 
flexibility in its use. The complete 
unit costs £47.15 (inclusive) which is 
not unreasonable compared to similar 
units for the BBC micro with less 
facilities. However, the fact remains 
that if you buy this board now, you 
will have virtually no software to use 
with it - though we will be producing 
two ROMs for the Electron shortly - a 
machine code monitor (EXMON) and a 
Basic programmers aid (TOOLKIT). It is 
also likely that other software in ROM 
will become available for the Electron 
now that there is a means of using it. 


The board can be purchased from: 

Sir Computers Ltd., 91 Whitchurch Road, 
Cardiff, CF4 3JP 

Tel: (@222)621813 


HINTS HINTS 


TRANS PARENT_KEY DEFINITIONS - T.G.Ward 


HINTS 


HINTS HINTS 


It is possible to change the function key definitions without corrupting a 
program currently in memory. This is achieved by previously having *SAVEd the memory 
contents of the key definition buffer (located from &B@@ to &BFF). Then when you 
want to change the definitions, just *LOAD the required set of definitions into 
memory. The whole process of loading into memory will be transparent to any Basic 
program existing in memory. For example, initialise your function keys in the usual 
way, and then save the definitions as follows: 


*SAVE "DEF1" BOO BFF <return> 


Where DEF] is the file name. Now, whenever this set of functions are required, type 


in the following line: 
*LOAD “DEFI" <return> 
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USING PROCEDURES AND FUNCTIONS 


by Rob Pickering and Philip Le Grand 


If you have looked in any detail at many of the programs published 
in ELBUG you will have seen that the majority make extensive use of 
procedures. These, together with functions, form a very useful and 
powerful feature of BBC Basic (used on the Electron). Rob Pickering 
and Philip Le Grand explain clearly just what functions and 
procedures are and tell you how to set up your own function and 


procedure library. 


WHAT IS A PROCEDURE? 

Although it is perfectly feasible to 
write programs for the Electron without 
any knowledge of procedures, there is 
no doubt that their correct usage leads 
to a far superior program. 


Think of a short part of a whole 
program, which carries out one minor 
task within the program. A few lines 
which, for example, wait for the user 
to press a key before continuing. 
Assume that this minor task will be 
performed several times within the 
program, which is fairly typical. We 
could enter the same lines at each 
stage of the program where it is 
required, but this is tedious and takes 
up a lot of memory. What we do is make 
the relevant group of lines into a 
collective unit called a procedure. So 
you can think of a procedure as being a 
section of program which performs a 
given task as many times as required. 
It is similar in some ways to a 
‘subroutine (i.e. using GOSUB...RETURN) 
but has certain advantages over the 
subroutine. 


Each procedure is given a name to 
distinguish it from other procedures. A 
procedure name is very similar to a 
variable name, but with two real 
differences: 

(a) they must always start with the 
keyword "PROC" in order to distinguish 
them from variable names, 

(b) they may not end with a "S$" or 
"$" symbol. 


Choosing an appropriate name for a 
procedure is very important, not only 
to make the program understandable to 
other people, but also to help yourself 
to remember what all the procedures do. 
Since the purpose of our example 
procedure is to wait for the user to 


press a key, it seems sensible to call 
it "PROCwait". Note also that using 
lower case letters for the name helps 
to make it clearer to read. Here then 
is our example procedure in full: 


1068 DEF PROCwait 
101G *FX25,1 
1628 key=GET 
1638 ENDPROC 


As you can see this is only a simple 
short example and as_ such it is not 
typical of the usual length of 
procedures. You will notice that 
line 1008 starts with the letters 
"DEF", short for DEFINITION. It simply 
informs the computer that this is the 
start of a procedure that we are 
‘defining'. Once defined, we simply 
state its unique name whenever it is 
required. For instance, here is an 
example of how we might use PROCwait 
within a program. 


108 PRINT"Press any key to continue.." 
118 PROCwait 

120 PRINT"Thankyou." 

138 END 


Notice that we do not need to know 
at what program line the procedure 
starts in order to use it. The BBC 
Basic holds a list of where’ the 
procedures are in the program, each 
location being stored when the 
procedure is defined. This means that 
when you use a procedure, Basic does 
not have to search through the whole 
program in order to find the correct 
procedure, hence providing fast 
operation. Note also that procedures 
are terminated with an ENDPROC, passing 
execution back to the instruction 
following the one which called the 
procedure. Procedures can also be 
called in ‘immediate mode' - that is to » 
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say, directly from the keyboard. Thus 
if you type PROCwait <return>, the 
procedure will also be executed. This 
allows you to debug a program procedure 
by procedure, rather than trying to 
test a whole program at once. 


PARAMETERS 

You will inevitably have heard of 
parameters, but may not know what they 
are, or what their purpose is. 
Parameters form a handy way of passing 
values to a procedure. For example, we 
can alter the above procedure to cause 
a delay of a set amount, by passing the 
delay length as a parameter to the 
procedure rather than waiting for ever 
if a key is not pressed, so a sensible 
name would be "PROCdelay", as given 
below: 


100 DEF PROCdelay (secs) 
110 TIME=0 

12@ REPEAT 

13@ REM Do nothing 

146 UNTIL TIME>1@0*secs 
15@ ENDPROC 


A parameter is simply a value which 
will be used by the procedure in some 
way in the performance of its task. We 
use the expression "parameter passing" 
for the way in which values are passed 
from the main program into’ the 
procedure. Here, the procedure 
definition includes a parameter, (a 
variable named ("secs") which will 
determine the number of seconds delay, 
and applies to a variable which will 
exist in the locality of the procedure 
only. 


LOCAL AND GLOBAL VARIABLES 

Something which exists only inside a 
procedure definition is said to be 
"LOCAL" to the procedure. A reference 
to something outside the procedure is 
said to be a "GLOBAL" reference. When a 
variable name is given as a parameter 
in the procedure definition it does not 
then use a variable of the same name 
from the main program. What happens is 
that when we use the procedure we must 
give a parameter there too. The value 
given in the call to the procedure is 
automatically copied into the 
procedure's own local variable. The 
type of parameters that can be passed 
to a procedure include real, integer 
and string variables, as well as actual 


values, but remember that the type of 
Parameter MUST match the type of 
variable in the definition. Note 
though, arrayS cannot normally be 
passed to procedures. An example will 
help to make this clearer. 


108 valuel=3.526 

116 value23=55:y$=16 

126 value3$="HELLO" 

136 PROCoutputvalues (valuel,value2%,va 
lue3$,101) 

148 PRINT y3 

158 END 

1668 DEF PROCoutputvalues(x,x$,x$,y%) 
1610 PRINT''x,x%,x$ 

1620 PRINT y% 

1838 ENDPROC 


Enter and run the complete program 
above, which demonstrates that the 
variables passed to the procedure are 
actually different from the variables 
in the rest of the program. In the main 
program “y%" is simply set to the value 
16, but the fact that a variable of the 
same name within the procedure has a 
different value (namely 101) 
demonstrates that they are separate, 
and we can print out the original value 
of y% when we return. Also notice that 
the last parameter passed is a value 
and not a variable. 


Local variables are not limited to 
those which we use as parameters. In 
fact we can make all the variables that 
are used within a procedure local to 
itself. To achieve this we are provided 
with the Basic command "LOCAL" which is 
followed by a list of all the local 
variables. Provided that any variables 
used within a procedure are declared as 
LOCAL, you never have to worry whether 
the same variable names are being used 
elsewhere, either in the main program 
or in another procedure. This means 
that you can take a_ procedure from 
someone else and need only know what 
task it performs, its name, and what 
parameters it requires to use it in 
your own program. 


STRUCTURED PROGRAMS 

One of the great advantages of using 
procedures is that their very use leads 
naturally to structured programs. As an 
example of a well structured program, 
see program 1 below (we have not 
included line numbers as this is just a » 
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general outline of a program). It has 
two main sections. The first is called 
the MAIN section and contains generally 
very 'readable' code, calling upon each 
procedure to carry out its task when it 
is needed. The second section is merely 
a collection of all the procedure and 
function definitions. See if you can 
tell what it does without having any 
idea of the actual programming involved 
in the definition. 


REM Program 1 

PROCtitles 

PROCinitialise 

REPEAT 

PROCopt ionmenu 
choice$=FNoption 

IF choice$="C" PROCcreatefile 
IF choice$="E" PROCeditfile 
IF choiceS$="U" PROCupdatefile 
UNTIL choice$="STOP" 
PROCtidyup 

END 

REM *** DEFINE ALL PROCEDURES 
DEF PROCoptionmenu 

ENDPROC 

DEF PROCcreatefile 

ENDPROC 

DEF PROCeditfile 

ENDPROC 

DEF PROCupdatefile 

ENDPROC 

DEF PROCtidyup 

ENDPROC 

DEF FNoption 


The 'END' statement dividing the two 
sections of program is essential here 
to avoid the program re-entering the 
procedure definitions after the main 
body of the program has been completed. 


FUNCTIONS 

You may also have noticed in the 
above program the line with 
‘choiceS=FNoption' in it. This’ is 
another device used in structured 
programs. It is called a function. 
Functions are very Similar to 
procedures except that they can return 
one value back to the main program. The 
value returned may be an integer, a 


real number or a string. The function 
is also called differently to a 
procedure, as in the example, by being 
used as would any value in the program. 
For example 

ans$=FNoption 
or PRINT FNoption 
Functions are defined in a_ similar 
manner to procedures using the keyword 
DEF. The function FNoption could be 
defined as follows: 


DEF FNoption 

PRINT"C = creates a new file" 
PRINT"E = edit a file" 
PRINT"U = update a file" 


PRINT"STOP = exit program" 
PRINT'"Enter your choice " 
INPUT entry$ 

=entry$ 


The result is always placed at the 
end of the function, after the '=' 
character, to terminate it. Similarly 
aS many parameters as you like can be 
passed to a function, although only one 
is returned. It is possible to write 
complete programs using procedures and 
functions without resorting to GOTOs or 
GOSUBs of any kind. 


USING FUNCTIONS AND PROCEDURES 

Because of their versatility, many 
functions and procedures that you write 
can be used time and time again in your 
own programs. This is where a 
function/procedure library can be 
useful. 


The idea of such a library is that 
it should contain all your most useful 
functions and procedures. When you are 
writing a new program, you will often 
find you can speed up _ program 
development by using some of the 
existing procedures and functions from 
your library. It is very easy to set up 
your own library using the *EXEC and 
*SPOOL commands. 


When you have a_— function or 
procedure that you want to save, do 
make sure it is fully tested. After 
all, there is no value in having a 
library of failures! It is also a good 
idea to number the procedures with high 
line numbers, say from 10008 onwards. 
Then select a suitable place on your 
library cassette to save the module, 
and type in the following: » 
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*SPOOL example <return> 


where ‘example' is the name of the 
module (no quotes are required). Switch 
your recorder to record when prompted 
by the computer, press Return and type 
LIST <return>. When the listing 
finishes, type *SPOOL <return>, and 
turn your cassette recorder off. Now 
every time you require that module in 
another program, locate its position on 
the tape, renumber your program so that 
the last line is less than 10008, and 
type: 


*EXEC example <return> 


Press Play on your recorder, and the 
module will be automatically merged on 
to the end of the program. This can be 
repeated for as many modules as you 


require. It is important that the line 
numbers of the program and the 
procedure being merged are quite 
separate. If necessary, renumber your 
program before merging in the next 
section. 


Some examples of functions and 
procedures that people have already set 
up into their libraries include fast 
circle plotting procedures, delay 
procedures, functions to read data 
input at the keyboard, procedures to 
plot double height characters, date 
validation procedures, amd sorting 
procedures. We will be supplying some 
ready-made procedures in forthcoming 
issues of ELBUG. This issue, for 
example, contains a procedure for 
saving graphics screens. 

® 


FABRIC PATTERNS 
by D. J. Allom 


The following very short program 
creates a variable technicolour 
display, simulating woven patterns seen 
in fabrics. The display is built up 
from left to right with successive 
passes using randomly chosen colours. 
The program may be halted temporarily 
at the end of a complete pass by 
pressing the space bar once. When it is 
pressed again, the program continues 


wi 


its progress, changing the pattern yet 
again. Re-running the program should 
produce new patterns. You may wish to 
make it perform this automatically to 
produce a non-stop display. Just add 
the following: 


208 GOTO 16 


1@ REM Program FABRIC 

20 REM Author D.J.Allom 

30 REM Version £1.1 

40 REM ELBUG) April 1984 

56 REM Program subject to copyright 
66: 

106 ON ERROR MODE 6:END 

118 MODE2:VDU 23,1,0;0;9;9; 

126 REPEAT 

138 GCOL3,RND(7) :A$=RND (4) *4 

14@ FORB$=256 TO 1624 STEPRND(4) *8 
15@ FORC%=224 TO 86@STEPA% 

168 PLOT69,B%,C% 

176 NEXT, 

180 IF INKEY(@)=32 THEN OSCLI ("FX15,1 


") :REPEAT UNTIL GET=32 


198 UNTIL FALSE 
268 END 


ELBUG 


April 1984 


Volume-1 Issue-5 


DOMINOES 
by C. C, Radcliffe 


The program DOMINO provides 


popular table game of dominoes 


an excellent computer version of the 
for you to play against your 


Electron. The graphics used in this program are a real delight and 
show just what can be achieved using this micro. 


This is a game of dominoes in which 
you pit your wits against the ice cool 
steely resolve of your Electron (or Elk 
as it likes to be known). The object of 
dominoes is very simple - you must try 
and lay all your dominoes down on the 
‘table' before the computer. 


You and the computer each select a 
domino at the start of the game to see 
who goes first. You will then see your 
initial set of seven dominoes displayed 
at the bottom right of the screen. When 
it is your turn to go, choose which 
domino you want to play by pressing the 
appropriate number key, and then press 
either 1 or 2 to indicate at which end 
you wish to play. This may often be 
obvious to you, but not to the computer 
which cannot 'see' your hand. If you 
are unable to play a domino from your 
hand, when it is your turn, then you 
Must 'knock' by pressing 'K', and you 
will be given another domino from the 
unused pile. The computer's dominoes 
are not displayed on the screen; that 
would be cheating, but it plays to 
exactly the same rules and will also 
'knock' when unable to go. 


Note that because of the limitations 
of the screen display, you cannot have 
more than 9 dominoes in your hand at 
any one time. At the end of the game, 
the overall score is displayed on the 
screen, together with any dominoes left 
over in either hand. 


This is a very nicely presented game 
using Mode 1 graphics which is really 
pleasing to play. 

16 REM PROGRAM DOMINOES 

26 REM AUTHOR C.C.Radcliffe 

36 REM VERSION E1.@ 

40 REM ELBUG APRIL 1984 

5@ REM PROGRAM SUBJECT TO COPYRIGHT 
68: 

108 ON ERROR GOTO 43@ 

110: 


° 
plau. (keKnock> 


128 CLEAR 

130 *FX11,0 

148 MODE] 

158 VDU23,1,9;9;9;90; 

16@ PROCinit 

178 PROCshuffle 

188 PROCstart 

196 REPEAT 

200 WT=FALSE 

210 PROCshuffle:S$=d 

228 GCOLG,129:CLG 

236 VDU28,0,31,14,26,12,18,0,0,25,4,4 
80; 188;25,5,1279; 188; 

248 FOR I%=1 TO 9 

258 MOVE29, 1023-1%*8@: PLOT25,1221,@ 

260 IF (I$MOD2 AND I%<9) PLOT25,0,-80 

ELSE IF I%<9 PLOT@,-1221,@:PLOT25,9,- 
86 

278 NEXT 

288 FORI%=@TO1 

296 PROCpick(I%,7) :end% (1%) =-1:end1$ ( 
I$) =3 

380 NEXT 

310 WTI=TRUE 

320 REPEAT 

338 IFELK$PROCELK ELSEPROCdisphand (1, 
8) : PROCplayer 

348 UNTILtot$ (9)=8 ORtot$(1)=8 OR(bk% 
ANDpk $ANDS$>27) 

350 1%=0:W%=0: REPEAT 

360 IFtot%(I%)=8 PROCwin(I$) :WS=1 

378 I=13+1 

380 UNTIL W% OR I$=2 » 
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396 IFW%=0 WS=FNwin: PROCwin (W%) 

486 UNTILFALSE 

416 END 

426 : 

4308 ON ERROR OFF:MODE 6 

440 *FX12 

450 IF ERR<>17 REPORT:PRINT" at line 
"sERL 

469 END 

478 : 

1088 DEFPROCinit 

1618 DIMdomS (27) ,hand$ (1,9) ,tot%(1),en 
d3 (1) ,end1$(1) ,endx% (1) ,win% (2) ,th3 (1) 

1928 A%=RND (TIME) 

1038 FORI%=9TO1 

1048 tot (1%) =8 

1058 FORK$=8TO9 


DOMINOES 


Meloone to ELKDOM. 
P e type in your name: 
ARTHUR 


Hello ARTHUR. 
Please entero a number (1-28) to select 
a domino, the ELK will also choose - 


the highest number of dots starts! 


1s 


ARTHUR eux 
ARTHUR starts! 
Press any key to continue. 


1868 hand$(I$,K%)=""__" 

1078 NEXT: NEXT 

1088 FOR I%=@ TO2:win$(I$)=0:NEXT 

1898 VDU23,255,0; 0; 32,112,32,@ 

1186 VDU19,1,2,0,8,G:VDU19,2,1,8,9,@ 

1116 bk3=@:pk3=0 

1128 ENDPROC 

1138 : 

114@ DEFPROCshuf fle 

1158 RESTORE1 280 

1168 LOCALNS, I% 

1178 FORN$=G8T027 

1188 dom$(N%)=""_" 

1198 NEXT 

1268 FORN%=6TO27 

1218 REPEAT 

1226 I3=RND(28)-1 

1236 UNTILdom$(I3)=""_" 

1246 READdomS (I$) 

1258 NEXT 

1268 ENDPROC 

1278 : 

1286 DATAGG,01,92,03,94,05,06,11,12,13 
714,15,16,22,23,24,25,26,33,34,35,36,44 
745,46,55,56,66 

1296 : 

1366 DEFPROCstart 


1318 LOCALB% ,bd%,P$,N$,pd$,s$,t$ 

1328 CLS 

1330 PRINTTAB (16,1) "DOMINOES" 

1340 PRINT''"Welcome to ELKDOM."''"Ple 
ase type in your name:"' 

1358 REPEAT: INPUTTAB (8,8) n$:L3$=LEN (nS) 
: IFL$>1 @PRINTTAB (0,8) SPC(L3) 

1368 UNTILL$<11 

1370 PRINT''"Hello ";n$;"."" 

1386 PRINT"Please enter a number (1-28 
) to select"''"a domino, the ELK will a 
lso choose -"''"the highest number of d 
ots starts!" 

1399 REPEAT: INPUTTAB (9,19) PS: PS$=P$-1:U 
NTILP$<28ANDP%>=9 

1408 pd3=FNtotdot (P%) 

1419 REPEAT 

1428 B&=RND (28) -1 

1438 bd%=FNtotdot (B%) :sS="ELK" 

1446 UNTILC$<>BSANDpd$<>bd3 

1450 PROCdomino (326,320, TRUE, FNldot (do 
m$ (P%) ) ,FNrdot (dom$ (P$) ) ) : PROCdomino (96 
0,320, TRUE,FNidot (domS (B%) ) ,FNrdot (domS 
(BS) )) 

1466 PRINTTAB (9,26) SPC(19-LEN (nS) DIV2) 
7n$;SPC(17-LEN(nS$) DIV2) ;s$ 

1470 IFbd$>pdSELK$=TRUEELSEELK$=FALSE: 
s$=n$ 

1480 PRINT'sS;" starts!"''"Press any k 
ey to continue." 

1496 P%=GET 

1586 ENDPROC 

1516 : 

1528 DEFFNtotdot (N%) =FNldot (domS (N$) ) + 
FNrdot (dom$ (N%) ) 

1538 : 

1548 DEFFNI1dot (DS) =VAL(LEFTS$ (D$,1) ) 
1550 : 
156@ DEFENrdot (DS) =VAL (RIGHTS (DS, 1) ) 
1578 : 

1586 DEFPROCdomino (X%, Y%,0%,L%3,R%) 

1598 LOCALN$ ,D% 

1688 GCOLG,2: IFOSMOVEX3-36, Y$-6: PLOT, 
@,12:PLOT81,68,-12:PLOT81,@, 1 2ELSEMOVEX 
$-6 , Y$-30: PLOT@, 12,0: PLOT81,-12,60: PLOT 
81,12,6 

1619 FORN$=-1TOISTEP2 

1628 GCOLG, 3: IFOSMOVEXS+N3* 3G, YS+N3*66 
ELSEMOVEXS+N%*66 , YS+NS* 3G 

1630 PLOTG,-60*N%,G:PLOT81 ,60*N%,-60*N 
%:PLOT81 ,-60*N3,@ 

1646 NEXT 

1658 O%=ABS (0%) 

1668 FORN%=-1TOISTEP2 

1676 H8=0%* (X$-8) - (OS-1) * ( (X$-8) +NB*36_, 

1688 V%S=O$* ( (Y$+18) +N$*36) — (O$-1) * (YS+ 
18) 

1696 IFN%=-1D%=LSELSED$=R$ 

1788 VDU5: PROCdot (H%,V%,D3) 

1718 NEXT » 
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1726 VDU4 

1738 ENDPROC 

1748 : 

1758 DEFPROCdot (X%$,Y%,T%) 

1768 LOCALN$ ,M%,D%,A%,H3,V3 

1770 M$=TMOD2:D%=TSDIV2 

1788 GCOL4,G:MOVEX$,Y$ 

1796 IEM$PRINTCHR$255; 

1888 IFD%$=GENDPROC 

1818 IFOSRESTORE] 94GELSERESTORE1 950 
1828 N$=d 

1838 REPEAT 

1848 READA$:NS$=N3+1 

1858 UNTILN$=D3 

1868 RESTORE] 969 

1876 FORN%=1T0O8 

1889 READH$,V3,Q% 

1898 MOVEX3, Y3: PLOT@,H%, V3 

1988 IFQSANDASPRINTCHRS255 

1916 NEXT 

1928 ENDPROC 

1936 : 

1949 DATA&44,&55,&DD 

1956 DATA &11,&55,&77 

1960 DATA -20,20,1,9,20,2,20,20,4,20,0 
78,26,-20,&19,8,-20,&26,-28,-20,&49,-20 
70,&88 

1978 : 

1988 DEFPROCpick (P$,D%) 

199G LOCALN% 

2600 FORN$=1TOD$ 

2010 IFS%>27D%=NSELSEhand$ (P%, tot$ (P%) 
) =dom$ (S$) :S$=S%$+1 : PROCsound 

2620 NEXT 

2038 ENDPROC 

2048 : 

2658 DEFPROCdisphand (P$,T%) 

2068 VDU24, 500; 8+TS*184; 1279; 184+TS*18 
4316 

2676 LOCALN$, X% 

2088 IF tot%$(P%)=8 VDU26:ENDPROC 
2098 FORNS=@ TOtot$(P%)-1 

2188 X%=532+(N$)*72 


2118 PROCdomino (X%,80+T$*184,TRUE,FNId 
ot (hand$ (P$,N%) ) ,FNrdot (hand$ (P3,N3) ) ) 
2120 MOVEX%-19,180+T$*184 
2138 VDU5 

2140 IF T$=0 PRINT;NS& 

2150 NEXT: IF TS=@ VDU4,24,0;196;1279;1 
@23; ELSE VDU4,26 

2168 ENDPROC 

2170 : 

2188 DEFPROCELK 

2198 LOCALES ,N%,D%,0%,L%,R%,P$: ELK3=FA 
LSE:bk3=0 

2288 IFend$ (9) =-1X$=640: Y$=623:D%=FNIs 
t:L$=FNldot (hand$ (9,D%) ) :R$=FNrdot (hand 
$(@,D%) ) send% (9) =L$:end$% (1) =R$:08= (L3=R 
%) :P$=1:FORES=@8 TO] :endx$ (E%) =640+FNcen 
tre: PROCendno (E%) : NEXTELSEPROCplay : PROC 
endno (E%) 

2210 IFPSPROCdomino (X%,Y%,0%,L%,R%) : PR 
OCsort (@,D%) ELSEPROCpick (@,1) :bk$=1 

2228 ENDPROC 

2230 : 

2248 DEFFNvert (D$) 

2256 IFFNldot (DS) =FNrdot (D$) =TRUEELSE= 
FALSE 

2268 : 

2278 DEFPROCplayer 

2288 LOCALES ,B%,F%,N%,P%,D%,X%,Y%,0%, 1 
$,J$,L3,R3: ELK$=TRUE:pk3=0 

2298 PRINT'"Press number"'"for domino" 
"you wish to"'"play. (k=Knock) " 

2306 REPEAT: D$=GET-48:UNTIL(D%>=98 ANDD 
$<tot$ (1) ) ORD$=59 ORDS=27: IFD$>tot$ (1) P 
ROCpick (1,1) :pk$=1: ENDPROC 

2318 I%$=FNldot (hand$(1,D%) ) :J$=FNrdot ( 
hand$ (1,D%) ) :O$=FNvert (hand$ (1 ,D%) ) 

2328 IFend3 (G) =-1X%=640: Y%=623:L3=13:R 
$=J%: ends (G) =L3: end$ (1) =R$: P$=TRUE: FORE 
$=8 TOl:endx$ (E%) =640+FNcentre: PROCendn 
0(E%) sNEXT: GOTO2376 

2330 IFend$(@)<>-1CLS:PRINT'"Press num 
ber"'"for end"'"you wish to"'"play.":RE 
PEAT: E$=GET-49: UNTILE%S=@ORE%=1 

234@ IFI%=end$ (E$) B3=8:FS=1 

2350 IFJ%=end$ (E%) BS=1:FS=1 

2368 IFFSPROCendno (E%) : PROCarrange (BS) 
: PROCsetup (E%) : PROCendno (E%) 

2378 IFPSPROCdomino(X%$,Y%$,0%,L%3,R%) :PR 
OCsort (1,D%) ELSEPROCpick (1,1) :pk%=1 

2380 IF WT SOUND@,-15,1080,6 

2398 IF WI G=INKEY (100) 

2488 ENDPROC 

2416 : 

2420 DEFPROCplay 

2438 LOCALI$,i%,J%,j,K%,B%,T3,M%: E3=—1 

2448 FORM3=@TOtot$ (G)-1 

2458 i%=FNldot (handS (@,M%) ) :j$=FNrdot ( 
hand$ (,M3) ) 

2468 FORK%=@TO! 

247@ IFi%=end$% (K%) ANDT$<=i$+j$PROCsave 
:BS=8 
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2480 IFj%=end$% (K%) ANDT$<=i%+j$PROCsave 
:BS=1 

2496 NEXT:NEXT 

2508 O%=FNvert (hand$ (G,D$) ) 

2510 IFE%>-1 PROCendno(E$%) : PROCarrange 
(B%) : PROCsetup (E%) 

252@ ENDPROC 

2530 : 

2548 DEFPROCsave:D$=M%: T$=13+3%:1S=i8: 
J$=3$: E=K%: ENDPROC 


2568 DEFPROCsetup (E%) 

2578 LOCALCS ,W% 

2580 P%=1:C%=FNcentre:X%=endx$ (E%) +C$: 
W=endx$ (E%) +2*C3+8*SGN (C$) 

2598 IEFW%<7ORW$>1271end1% (E%) =end1% (E& 
) +SGN (C$) :XB=C3-1279* (ES=G) :endx$s (E3) =W 
$-endx$% (E$) -1279* (E$=G) ELSEendx% (E%) =Ws 

2688 Y%=1163-end1% (E%) *160 

2618 ENDPROC 

2628 : 

26308 DEFFNcentre=- ( (0%=0) *70+ (OS=TRUE) 
*34) * ( (E$=@) - (ES=1) ) 

2648 : 

2650 DEFPROCsort (P%,D%) 

2668 LOCALN$,T% 

2676 IFtot$ (P$)<10T%=tot$ (P$) - 1 ELSET$= 
8:hand$(P%,9)=""_" 

2680 FORNS=D$TOTS 

2698 hands (P%,N%) =hand$ (P%,N3+1) 

2768 NEXT 

2718 tot (P%)=tots (P%)-1 

2728 ENDPROC 

2730 : 

2748 DEFPROCarrange (F%) 

2750 IFF%=Gend$ (E%) =JSELSEend$ (E%) =I% 

2760 IFF%=ESR$=1$: L$=JSELSEL$=1%: R=JS 

2778 ENDPROC 

2786 : 

27908 DEFFNIst 

2800 LOCALN%,T%,H%,I% 

2810 FORN$=1TO7 

2820 T%=FNtotdot (N$-1) : IFTE>HSHS=TS: 1% 
=N3-1 

2830 NEXT:=I% 

2846 : 

2850 DEF PROCendno (E$%) 

2860 IFE%=-1 ENDPROC ELSE VDU5:GCOL4,@ 
:MOVEendx$ (E$) +30* (E$=G) ,1115-end1$% (E%) 
*16@: PRINT; E%+1 : VDU4 

2878 ENDPROC 

2886 : 

2890 DEF FNwin 

2966 LOCAL N%,I% 

2918 FOR N%=98 TO 1 
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2920 th%(N%) =G 

2938 FOR I%=@ TO tot%(N%)-1 

2940 th% (N%) =th% (N%) +FNldot (hand$ (N%,I 
$) )+FNrdot (hand$ (N%, I$) ) 

2958 NEXT: NEXT 

2960 IF th$(@)>th%(1) =1 

2978 IF th%(1)>th%(@) =@ ELSE =2 

2989 : 

2998 DEF PROCwin (W%) 

3008 VDU26,12 

3018 LOCALNS 

3020 IF W%=0:ELK$=TRUE:WS="ELK" 

3030 IF W%=1:ELK$=FALSE:WS$=n$ 

3046 IF W%<2 PRINT'"Tne WINNER is ";WS 
ELSEPRINT'"Game Drawn!" 

3656 PRINT''"State of play:" 

3068 win’ (WS) =win’ (WS) +1 

3078 PRINT''SPC(6) ;"ELK";SPC(10-LEN(n$ 
) DIV2+LEN (n$) MOD2) ;n$;SPC(1G6-LEN (n$) DIV 
2);"Drawn"' 'SPC(2); 

3088 FOR N%=0 TO 2 

3098 PRINT;SPC(7) ;winS(N%); 

3108 NEXT 


The MINMER is ELK 


State of play: 


eux ARTHUR 
a e 


Unplayed hands: 


ARTHUR 


Press any key to continue. 


3110 PRINT''"Unplayed hands: "''''ns'' 
ont apr Kts il 

3126 PRINT''"Press any key to continue 
" 

3138 FOR N%=1 TO2:PROCdisphand (N3-1 ,N% 
) stot (N$-1) =0: NEXT 

3140 k=GET 

3158 ENDPROC 

3166 : 

3176 DEFPROCsound 

3180 IF WT SOUND1,-15,198,4:SOUND1,-15 
16,6 

3196 IF WT G=INKEY (199) 

3200 IF tot$(P%)<9 tot (P%) =tots (P%) +1 
3218 ENDPROC 
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UTILITY EDITOR 


by Adrian Calcraft, Paul Otto and T. Burgess 


This excellent Utility Editor should prove an invaluable aid to 
Basic programmers. It allows you to search a program for Basic 
keywords, strings, procedures and functions, and to make global 
alterations. 


When developing a program much time 
can be wasted scanning the listing to 
locate a specific procedure, function 


or character string that needs to be sipse Eexror 
changed. The program listed with this sects 
article is a mini Editor, which can be “STRING SEARCH. .INCL/KEYHOS/ 


loaded into the computer along with 

your development program. It is 

menu-driven, with the following 
options: 

1. List all occurrences of a specific 
string, including Basic Keywords. 

2. Change all occurrences of a Please select option :_ 
specific string to any new string 
that is equal in length or shorter 
than the original string, thus 
allowing you globally to change 
variable names. 

3. List the starting line number and 
name of each procedure used. 

4. List the starting line number and 
name of each function used. 

5. Return to the Basic program being 
edited. 

6. Return to the menu. 


. STRING REPLACE 
..LIST PROCEOURES 
. LIST FUNCTIONS 


-RETURH TO PROGRAM BEING EDITED 


ESCAPE. .RETURM TO THIS MENU 


5. To exit from the Editor and return 
to the development program, use 
option 5. 

6. To return to the Editor at any time 
(once you have exited), press 

function key @ (ie press FUNC and @ 
simultaneously. 


ABOUT THE EDITOR 

When you run the Editor you will be 
presented with a menu offering the 5 
options. To choose an option simply 
select the number indicated. All other 
entries are locked out. If you enter 1 
or 2 you will be prompted for a_ search 
string. Simply key in your string and 
then press Return. Option 2 will also 
prompt you for a replace string which 
you enter in the same way. 


TO SET UP THE EDITOR 

Type in the Editor as listed, and 
check your version against the original 
listing. Then save a copy to tape under 
the file name "EDITOR". 


TO USE THE EDITOR 
1. Put the program that you wish to 
edit into memory using: 
LOAD "" <return> 


2. Type: 
PAGE=&5868 <return> As already mentioned, option 1 will 
This resets the pointers in the allow you to search for strings 
Electron to allow the Editor to be including a keyword. To tell the 
resident in your machine at the computer that the relevant part of the 
same time as the program to be string is a keyword, it must be 
edited. enclosed in 2 slashes (/). eg: 
3. Load and Run the Editor using: 
CHAIN "EDITOR" To search for PRINT "HELLO" 
4. Use options 1 to 4 on the menu, as enter /PRINT/ "HELLO" 
Getailed below. Pressing Escape at To search for REPEAT 
any time will return you to _ the enter /REPEAT/ 
menu. To search for A%=A%+1:NEXTBS 
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enter A%=A%$+1:/NEXT/BS 2. If you attempt to RUN the 

development program, it may well 

If the program cannot find the cause the Editor to be 

keyword specified it will print an overwritten. If you need it again 

error message, and continue the afterwards, you should load it in 
search with the string exactly as you again as described above. 


entered it. t 
IF YOU HAVE PROBLEMS 


There are several points to note If upon running the Editor you get 
here: an error message indicating that the 
1. The search will be made for the computer has run out of room (eg. 

EXACT string which you supply. If DIM space), it probably means that 

the program contains: A$ =A%+1 (ie your version of the Editor program 

with a space after the first %) has become much longer than the 
and you search for AS=A$+1, it original. If you wish to extend the 
will not find it. Editor by adding further routines, 
2. The Editor will only allow ONE you will need to load it in at a 
keyword in any given string. lower address - eg &4C@@ in place of 
3. The string replace option may &5006. If you have to do this, don't 
NOT be used with keywords. forget to alter line 118 to reflect 


the new start address. 


EDITOR MENU ERROR MESSAGES 
EHTER OPTION. .1,2,3,4 OR 5 “Error, try again". This is only 
. «STRING SEARCH. .INCL/KEVRDS~ issued by option 2 and indicates 


[ISTRING REPLACE : 
1{LIST PROCEDURES ° either that you have attempted to 


« LIST FUNCTIONS . . 
:RETURH TO PROGRAM BEING EDITED replace a string by a longer string, 
“el nas which is not allowed, or that the 
Editor cannot find the program to 


edit. 


EPL 
ISTT¢(SP%): 
Iste 


t 
Lt 
LISTF 
PROGSCH($P~%,0ISP~%> 
sTRT 


"Invalid Keyword". This is 
displayed by option 1 and indicates 
that you have attempted to search for 
Searching for DEF PROC a Basic Keyword which has not been 
found in the table e.g. /PRNT/. If 
this is specified as a _ search 
argument in option 1, the error 
message will be given. The search 


If you choose options 3 or 4 no will continue, however, for the 
prompts are required, and the search actual string /PRNT/. 
for procedures. or functions is 
initiated immediately. Having ABOUT THE KEYWORD CONVERSION 
displayed the relevant line numbers The keyword table replacement 
(if there are any to display) the routine will only be able to locate 
Editor will prompt you to press the keywords exactly as they are 
Return, upon which the menu will be stored in the ROM memory. You will 
redisplayed, ready for your next find it useful to know that the token 
command. To return to your for INSTR assumes the first bracket, 
development program select option 5. and so should be searched for as 
/INSTR(/. This also applies for 
GENERAL NOTES LEFTS, which is searched for as 
1. All options put the display in /LEETS(/, MIDS which is /MIDS(/, 
"paged mode". This prevents the POINT which is /POINT(/, RIGHTS which 
located line numbers’ from being is /RIGHTS(/, STRINGS which is 
displayed, only to scroll off the /STRINGS(/ and TAB which is /TAB(/. 
top of the screen. If a full 
screen is displayed, pressing The following keywords are stored 
"Shift" will display the next twice in the table, and only the 
screenful. first entry is accessed by the 
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conversion program. These are..PAGE, 
PTR, TIME, LOMEM, HIMEM. 


If a search is requested for a 
string containing a keyword and 
nothing else, the program will be 
searching for a single byte (the 
token). It is possible that this byte 
may occur in a different context 
within the program, eg as part of a 
line number. If this is the case, the 
program will erroneously report a 
line number. This happens in practice 
very rarely, and only on searches for 
strings containing just a keyword and 
nothing else. 


Searching for GOTO followed by a 
line number, eg /GOTO/20@,will not 
work, This is because the line 
number after a GOTO, is stored by the 
computer in coded form. 


TECHNICAL INFORMATION 

BASIC KEYWORDS 

As you may have heard, when the 
Electron stores a program in its 
memory, it converts” all Basic 
keywords (such as IF, PRINT, SOUND, 
GOTO ...etc) into tokens. What this 
means is that rather than store all 
these, sometimes long, and frequently 
repeated words actually as they are 
spelt, it simply stores each of them 
as a 1 byte code (token). 


This leads to much more economical 
use of storage space. However, it 
does result in a problem for string 
search programs; quite simply, 
searching for say, "PRINT" is a waste 
of time, as it has been stored in 
memory as 241, rather than as a 
sequence representing the letters 
“P-R-I-N-T". 


A special feature of this Editor 
is that option 1 will allow you to 
search for any string, INCLUDING a 
keyword, if you wish. This is 
achieved by special procedures which 
use the table at &80671 in the 
Electron's ROM to perform a 
conversion of the keyword in the 
string that you specify. 


PROGRAM DETAILS 

The program is in fact a 
combination of several procedures. We 
are most grateful to T. Burgess for 
the first (PROCREPL) and to P. Otto 


for PROCLISTT, 
PROCLISTF. 


PROCLISTP and 


The procedures have been combined 
and are accessed via a menu, to 
create a single more powerful Editor. 
However, if you decide that you are 
interested say, in only one of the 
procedures, they are easily 
separated. 


LIMITATIONS 

The Editor is stored for 
convenience just below Mode 6 HIMEM. 
Consequently running a development 
program which uses a Mode other than 
6, with the Editor also in memory, 
will overwrite the Editor. This is no 
real problem as it is not necessary 
to run the user program while the 
Editor is in situ, and in any case, 
the Editor is easily reloaded. 


10 REM Program UTILED 

28 REM Authors P.OTTO, T.BURGESS, A. 
CALCRAFT 

36 REM Version E@.5 

40 REM ELBUG APRIL 1984 
5@ REM Program subject to copyright 


108 ON ERROR GOTO 1770 
118 *KEYGPAGE=&5006 | MRUN|M 
126 page=&E@0:REM Type page in lower 


136 DIM T%12,R%$12,P%250 

148 MODE6 

156 CLS:PRINT TAB(12,1)"“ELBUG EDITOR" 
‘TAB (15) "-MENU-" 

166 PRINT TAB(5,6)"1..STRING SEARCH.. 
INCL/KEYWDS/" 

176 PRINT TAB(5,8)"2..STRING REPLACE" 

189 PRINT TAB(5,10)"3..LIST PROCEDURE 
s" 

198 PRINT TAB(5,12)"4..LIST FUNCTIONS 
" 

200 PRINT TAB(5,14)"5..RETURN TO PROG 
RAM BEING EDITED" 

210 PRINT TAB(G,16) "ESCAPE. .RETURN TO 
THIS MENU" 

228 PRINT ''"Please select option :"; 

238 GS=GETS:IF GS<"1" OR GS>"5" VDU 7 
:GOTO 230 

248 PRINT GS' 

256 G=VAL(GS) :ON G GOTO 264,276,280,2 
96,318 

266 INPUT"SEARCH STRING.."SP%: PROCST 
RT: PROCLISTT(SP%):GOTO 300 

276 PROCREPL:GOTO 300 

28@ PROCLISTP:GOTO 360 
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298 PROCLISTF 
306 INPUT'"COMPLETED..PRESS RETURN" $ 
P$:GOTO15G 
318 PAGE=page: END 
328 : 
1008 DEFPROCREPL 
1818 B%=page+1] :Q$=B%: INPUT"SEARCH STRI 
NG.."ST%: INPUT"REPLACE STRING.."SR% :PR 
INT'"THE FOLLOWING LINES ALTERED.."': V 
DU14 
1620 IF ?(Q%$)=&FF OR LEN(SR%) >LEN(ST$) 
PRINT"Error, try again":VDU15:ENDPROC 
1030 REPEAT: V%=? (B$+2) :FOR X%=1 TO V3: 
? (Q8+X%-1) =? (B$+X3-1) sNEXT 
1040 REPEAT: IF ?(Q%+2)-4<LEN(ST%) LOC= 
8: GOTO1686 
1050 SP%="":FOR CB=Q3+3 TO Q$+?(Q$+2)- 
2: SP$=SP$+CHRS (?C%) : NEXT: LOC=INSTR(SP%, 
$T%): IF LOC=@8 GOTO 1080 ELSE IF ST%=SR% 
PRINT 256*? (Q%) +? (Q8+1) : LOC=6:GOTO108G 
1066 FOR C%=1 TO LEN(SR%) :?(Q8+LOC+1+C 
%) =ASC (MIDS ($R&,C%,1)) :NEXT:FOR C%=1 TO 
? (Q$+2) -LOC-LEN (ST%) —2: ? (Q$+LOC+LEN (SR 
$) +C$+1 ) =? (QS+LOC+LEN (STS) +C$+1) sNEXT 
107@ ?(Q%+2) =? (Q$+2) +LEN (SR%) -LEN (STS) 
PRINT 256*? (Q%) +? (Q$+1) 
1086 UNTIL LOC=6:Q%=Q%+? (Q$+2) :BS=BS+V 
% 
1898 UNTIL (?(B%-1)=&@D AND ?(B%)=&FF) 
OR B%=LOMEM: ? (Q%) =&FF 
1108 VDU15: ENDPROC 
1118 : 
1128 DEFPROCLISTT ($P%) : PROCPROGSCH (S$P% 
,@) : PRINT: ENDPROC 
1138 : 
1148 DEFPROCLISTP 
1158 PRINT"Searching for DEFPROC"':PRO 
CPROGSCH (CHRS&DD+CHRS&F2,-1) 
1168 PRINT"Searching for DEF PROC"':PR 
OCPROGSCH (CHRS&DD+" "+CHRS&F2,-1) 
1176 ENDPROC 
1186 : 
1196 DEFPROCLISTF 
126@ PRINT"Searching for DEFFN"':PROCP 
ROGSCH (CHRS&DD+CHRS&A4,-1) 
1210 PRINT"Searching for DEF FN":PROCP 
ROGSCH (CHRS&DD+" "+CHRS&A4,-1) 
1226 ENDPROC 
1236 : 
1246 DEFPROCPROGSCH ($P% , DISP%) 
1258 KS=LEN (S$P%) :VDU14:A$=@%:@3=8:ASTS 
Pai all 
1260 IF DISP$@$=6:ASTS="*" 
1278 I%=page-1 
1280 REPEAT: I$=1%+1:IF?I%=P%$?@ PROCLOO 
P 
1298 UNTIL ?I1%=&@D AND 1%?1=&FF:VDUI15: 
PRINT: @3=A% 
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1328 DEFPROCSTRT 

1336 A$=P$-1:Q3=P$+LEN (SP%) : YS=G 

1348 FORNS=1 TO2 

1350 X%=Y$ 

1368 REPEAT: A$=A$+1:UNTIL ?A%=&2F OR A 
S>=Q% 

1370 IF ?A$=&2F Y%=A% 

1380 NEXT 

1398 IF X%=@ OR X%=Y%$ ENDPROC 

1406 X%=X%+1:BS=Y3-X$ 

1418 PROCTEST 

1420 IF F%=&FF PRINT" INVALID KEYWORD": 
ENDPROC 

1438 AS$=P$: P&=P$-1 

144@ REPEAT P%=P$+1:UNTIL ?P$=&2F 

1450 ?PS=F$: Z%=P$+1 

1460 REPEAT P$=P$+1:UNTIL ?P%=&2F 

147@ REPEAT: P$=P%$+1:?Z%=?P% 2:Z23=Z3+1: 
UNTIL P%=Q% 

148G PS=A%:SPS=MIDS (SA$,1,Z%-A$) 

1496 ENDPROC 

1566 : 

1518 DEFPROCTEST 

1526 FS=G 

1538 D%=&8671 

1540 REPEAT 

1550 IF ?D%=?X% PROCCHK 

1560 IF F%=@0 REPEAT:D%=D%+1:UNTIL ?D%> 
&7F:D%=D$+2 

157@ IF D%>&836B OR ?D%>?X% FS=&FF 
1588 UNTIL F%<>d 

1598 ENDPROC 

1660 : 

1610 DEFPROCCHK 

1626 C8=D% :F%=1 

1638 FOR N$=8 TO B-1 

1640 IF X%?N% <> ?C% FR=B 

1658 C%=C%+1:NEXT 

1666 IF ?C% < &80 OR C%$?1 > &24 AND C% 
?1 <> &43 FS=0 

1670 IF F%=1 F%=?C% 

1688 ENDPROC 

1696 : 

1788 DEFPROCLOOP 

1718 C$=1:FOR J$=1%+1 TO I%+K%: IF ?J% 
=P$?C% C$=C$+1 ELSE J%=K%+I3 

1728 NEXT: IF C%<K% ENDPROC 

1736 FOR J%=I%-1 TO I$-254 STEP-1 

1748 IF ?(J%-3)=13 PRINT ASTS$;?(J%-1)+ 
? (J$-2) *256,;: J$=I1%-254:IF DISP$X%=I$+ 
K%:PRINT" ";:REPEAT: Y$=?X%: PRINT CHRS(Y 
$%) 7 :X8=X3+1:UNTIL Y$=13 OR Y3=58 OR Y3= 
61: PRINT 

1756 NEXT: ENDPROC 

1768 : 

1776 ON ERROR OFF 

1788 IF ERR=17 RUN 

1798 MODE 6 


1308 ENDPROC 1860 REPORT:PRINT" at line ";ERL 
1310 : 1818 END @ 
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LATEST GAMES REVIEWED 


Title : ESCAPE FROM MOONBASE ALPHA 
Supplier: Program Power 
Price : £7.95 
Reviewer: Alan R.Webster 
Rating =: **** 

‘Escape from Moonbase Alpha' is a 
three-dimensional adventure game 


loosely based on the television series, 
"Dr.Who'. The adventure takes place in 
a series of Linked rooms, each of which 
is represented in a_ three-dimensional 
form on the screen when you visit it. 
This is an unusual and intriguing 
feature of this game. 


The object of the game is to collect 
as many bags of gold as_ possible, 
whilst fighting off the challenge of 
the various monsters. You start ina 
room on level zero, and to escape you 
have to find 'The Doctor' who is down 
on level seven. The price of freedom is 
ten bags of gold, so make sure you have 
plenty of gold before finding the 
Doctor. Most rooms have various 
connecting doorways, or stairways, 


leading to other rooms in the game. 


You will sometimes find a 'TARDIS' 
in a room you visit, and if you can 
enter the TARDIS quickly you 


dematerialise and then reappear in a 
quite different room: This may help or 
hinder your progress. As you move 
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through the levels, the monsters become 
stronger and stronger, but at the same 
time, each bag of gold that you acquire 
also increases your own strength. 


This is a very nice game, with some 
enjoyable graphics, and makes a nice 
relaxing change to the "zap '‘em" 
games. 
the tables for the 
software. 


type 
It certainly rates very high in 
Electron 


best 


Titles : BUN FUN, SUPER GOLF, 
TRAFALGAR 

Supplier : SQUIRREL SOFTWARE 

Prices : £6.50, £7.50, £8.00 


Reviewer : Philip Le Grand 
Ratings : *, **, *** 


The three games reviewed here all 
come from a relatively new software 
company called Squirrel Software. The 


first of the three, BUN FUN, has a 
rather uninspiring name, and = once 
running on the Electron, turned out to 


be a rather uninspiring game. You are 
in a factory which makes buns, and you 
have been left in charge of placing the 
icing and nuts on top of the buns. Your 
pay at the end of the day depends on 


the number of completed buns you 
produce and the amount of waste you 
create. After playing this game a 


couple of times, I had no desire to 


continue playing it. 


The second game, SUPER GOLF, was an 
improvement over the last, in that 
there was more to think about and was 
enjoyable enough to come back and play 
it again. The choice of colours used in 


the program made it difficult, often 
impossible, to follow the ball 
(although if you are a keen spectator 


of golf on television, you may well be 
accustomed to the fine art of finding 
the ball!). Up to four players are 
allowed to play this game, and at the 
end of every hole, a score card is 
displayed for each player. The course 
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consists of the usual eighteen holes, 
with the option to miss out any hole. 
It is a pity that this game does not 
generate sound effects, especially for 
driving off, and that the ball does not 
roll on if it lands on the side of the 
mountain the program often creates for 
some of the greens. 


The third and final game, called 
TRAFALGAR, was the best out of all the 


games from Squirrel Software. The 
object of the game is to sink as many 
of the opposition's ships as possible 
at the Battle of Trafalgar. The game 
allows two players or one player and 
the computer to do battle. Sometimes, 
the computer seems to have a remarkable 
aim, especially if it's losing! The 
graphics were clear and well designed, 
with interesting sound effects. The 
visual effects of the ships exploding 
and sinking were particularly striking. 


In conclusion, BUN FUN was not an 
enjoyable game, and SUPER GOLF did not 
play as realistic a game of golf as 
other similar programs on the market. 
TRAFALGAR is the best game so far from 
Squirrel Software, though if they want 
to compete seriously with some of the 
larger software producers, they will 
have to increase the standard of their 
games software quite considerably. 


de * 
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Title : CROAKER 
Supplier : Program Power 
Price : £7.95 
Reviewer : Mike Williams 
Rating 3 RRKK 


Croaker is another version of the 
game also known as Frogger. The game 
itself is delightfully simple to 
understand. You have to control the 
movement of a frog who has to reach his 
home by crossing a busy five lane 
motorway, and then a polluted river by 
jumping on to floating logs and the 
backs of turtles. The visual 


presentation is extremely good with 
multi-coloured road vehicles of all 
sizes and very realistic logs (rather 
less realistic turtles). 


The journey is initially not too 
hazardous, but the game requires you to 
keep on trying. After the first screen, 
the vehicles are closer together, 
making the journey more dangerous, 
while logs occasionally turn out to be 
well disguised and not very friendly 
crocodiles. Even the placid turtles can 
make life dangerous by diving suddenly, 
to leave you floundering in the 
polluted river. The program includes an 
optional musical accompaniment which 
you either like or hate. This is a 
first class game for the Electron and 
good value at £7.95. 
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USING BBC MICRO PROGRAMS ON AN ELECTRON (Part 2) 


by David Graham 


This month, David Graham continues his series on converting BBC 
micro programs to run on the Electron, by looking at the differences 
in the use of the SOUND and ENVELOPE commands. 


Sounds are produced on the Electron 
and the BBC micro by using the two 
commands SOUND and ENVELOPE. Their 
implementation on the Electron is more 
limited than on the BBC micro, as 
suggested last month. In broad terms 
there is only one noise and one tone 
channel on the Electron (one noise and 
three tone on the Beeb), and amplitudes 
may only take one of two values on the 
Electron - ie. on or off (the Beeb has 
sixteen selectable sound levels). The 
Electron's ENVELOPE allows only pitch 
to be varied, while the Beeb's gives 
both pitch and amplitude variation. 


Programs on the Beeb with sound 
effects usually need some modification 
before they will work satisfactorily on 
the Electron from an acoustic point of 
view. Because there is only one tone 
channel on the Electron, it is not 
usually worth attempting to convert 
programs whose main function is to 
generate music, since the result will 
be generally unrewarding. But 
otherwise, it us usually possible to 
produce replacement sound effects - 
though the generation of a good 
explosion, or gunshot is not possible 
because of the restriction on amplitude 
variation. 


In seeking to convert Beeb sounds to 
Electron sounds, it is probably best to 
consider the SOUND and ENVELOPE 
commands separately. We will look at 
the SOUND command first. 


SOUND. 

The SOUND command has four 
parameters, Q, A, P and D. You may like 
to refer briefly to page 116 of the 
User Guide if you are unfamiliar with 
the SOUND call. To produce a sound, try 
typing 


SOUND 1,-15,100,4@ 
In this case Q=1, A=-15, P=180 and D=4d 


Q selects the sound channel number 
A switches the sound on or off or 
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selects ENVELOPE. 
P selects the pitch 
D selects the duration 


If you run a _ sound generating 
routine for the Beeb on your Electron, 
and the program has no associated 
ENVELOPE, then the result will be as 
follows. 


1. Any values of amplitude chosen in 
the Beeb SOUND command (from -15 to -1) 
will give full yolume on the Electron. 
A zero will give off on either machine. 
So there is no real problem here. 


2. If the Beeb uses more than one sound 
channel at the same time, then the 
Electron will lose sounds, simply 
playing the last in the sequence. Thus 
with the following two lines of code: 


168 SOUND 1, -15, 180,190 
118 SOUND 2, -16, 58, 10 


the Beeb would begin both sounds 
simultaneously, and the first, which is 
1@ times longer than the second, would 
play for 5 seconds. On the Electron, 
the second would overwrite the first 
before it was played, and you would 
just hear the half second 'blip' 
generated by line 110. If a _ program 
requires a longer sound in such a case, 
the simple solution is to delete the 
shorter one if it is listed after the 
longer one. If, alternatively, you 
wanted to hear the sounds in sequence, 
then you should change the '2' in line 
TED," 8 1 


3. Unfortunately, it is not possible to 
get the noise channel on the Electron 
to generate sounds simultaneously with 
the tone channel. The result is similar 
to 2 above. The last command in any 
group is the only one heard. Complex 
sound effects on the Beeb will thus 
produce various results depending on 
the sequence of commands. Thus on the 
Beeb the following: » 
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108 SOUND 1,-15,168,188 
118 SOUND 8,-15,188,18 


would produce a long tone accompanied 
by a short '‘blip' of noise at the 
start. On the Electron, you only hear 
the blip. If you reverse the order of 
the commands, there will be no change 
on the Beeb, but on the Electron you 
will hear only the long tone. The noise 
will be lost. 


4. Finally, the production of noise 
(opposed to pure tones) on the Electron 
is disrupted by other work which the 
CPU is forced to do (Central Processor 
Unit - the 6502 chip at the heart of 
the Electron and the Beeb). This does 
not happen on the Beeb, and can be used 
to good effect on the Electron. For 
example, try the following: 


10@ SOUND 9,-15,106,100 
Now add: 
11@ FOR A=1 TO 3000:NEXT 


and run it again. You will hear that 
the first half of the noise is warbled 
because the effective output frequency 
is drastically cut as the CPU attends 
to this second line of Basic. 


ENVELOPE 

The only thing that causes a problem 
with the ENVELOPE command is the lack 
of amplitude variation. Contrary to 
what I said last month, the Electron 
possesses a full set of 16 Envelopes, 
making life a good deal easier than I 
had envisaged. 


All the effects mentioned under 
"SOUND' above are retained when 
envelopes are used, and the same 
techniques of restoring sounds should 
be used. 


The missing segment of the ENVELOPE 
command (the last 6 parameters in fact) 
simply means that the Beeb programs 
which use this to vary the volume of 
the sound or to turn it on or off may 
need modifying. 


For example, try the following: 


16 ENVELOPE 2,1,9,8,8,6,3,3,38,-4,8,-5, 
128,88 
28 SOUND 2,2,190,7 


On the Beeb, this gives a note of 
constant pitch which dies away slowly. 
On the Electron, it stays at full 
volume. The same occurs with explosion 
sounds. Try replacing line 20 above 
with: 


26 SOUND 0,2,6,15 


On the Beeb, this causes the sound of 
an explosion or gun shot, but on the 


Electron it just sounds like a burst of 
noise. 


In fact, one can do very little to 
reproduce such an effect, and the best 
approach in this case is probably to 
replace the sound with another of your 
choice, possibly by trial and error. 


One substitute might be to try to 
use the facility for varying the pitch 
of white noise. As an example of this, 
try the following: 


16 ENVELOPE 1,3,4,4,10,26,19,127,0,9,0, 
8,8,8 
2@ SOUND @,1,108,106 


Next month we shall look at ways of 
getting the maximum speed and _ response 
out of the Electron. Because of the way 
the Electron is designed, compared with 
the Beeb, it is necessary to consider a 
variety of time saving techniques if we 
are to achieve comparable speed of 


operation in many cases. @ 
HINTS HINTS HINTS HINTS HINTS 
TIME DELAY 


A good way to put a time delay in a program is to use the INKEY function. For 
example, X=INKEY(2@@) will give a two second delay (the number in brackets is the 
time in centiseconds). Note that this delay can be cut short by pressing a _ key, 


which can be useful when .testing. 
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ELEVATOR MANIA 
by D. J. Pilling 


If you enjoyed the Block Blitz game last month, then you will be 
positively dazzled by 'Elevator Mania', a super fast action game by 
the same author. This is one of the fastest games written in Basic 
that we have seen for a long time and will provide you with hours of 
adrenalin sapping enjoyment in return for the effort of typing it 


into your micro. 


Elevator Mania is a one player game, 
in which you control a man running left 
and right along a vast network of 
corridors, or going up and down in a 
bewildering maze of lifts. The object 
of the game is to kill as many ‘droids' 
as possible by luring them under the 
mines which hang from the roofs of 
corridors. When this happens, the 
droids are immoblised for a short time, 
allowing you to run underneath and kill 
them. If you fail to kill the droid, it 
will be released and come chasing after 
you once again. If a second droid 
passes a droid that has already run 
into a mine, both droids will be 
released. 


The mines also halt the progress of 
the man for a few seconds - time enough 
unfortunately for the droids to catch 
him in most cases. 


After five screens of play, the 
mines will start to be replaced by 
‘blue cloners'. These have the alarming 
effect of duplicating any droid that 
passes underneath. 


i 
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The game is controlled from the 
keyboard with 'Z' and 'X' moving the 
man left and right. Although the lifts 


move up and down quite automatically, 
you can manually control the lifts 
using '*' for up and '?' for down. You 
will also find that if the man 
disappears off the screen at one side, 
he will re-appear on the same level at 
the other side of the screen. The 
Groids cannot follow you in this way. 


If you find the game too fast for 
you initially, you can slow it down by 
adding an extra delay line to the 
program. For example: 

2345 TIME=0:REPEAT UNTIL TIME>5 
The larger the value at the end of the 
line the greater the delay and the 
slower the game. 


This is a quite outstanding game, 
particularly when you consider that it 
is written in Basic and not machine 
code. Despite its length, which we have 
kept as reasonable as possible, we are 
sure you will agree with us that this 
is a truly outstanding game. 


18 REM PROGRAM ELEVATOR 

26 REM AUTHOR D.J.Pilling 

36 REM VERSION E@.2 

40 REM ELBUG APRIL 1984 

58 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 

188 ON ERROR GOTO 240 

118 MODE6:VDU23,1,9;0;0;G; 

12@ PROCFP 

13@ MODES: PROCCHAR 

148 DIM AS(1) ,BS(1) ,CS$(1) 

15@ DIMX% (6) ,Y3 (6) ,U$ (6) ,L3 (6) ,D3 (6), 
A% (6) ,BS(6) ,Z3(6) ,WS(6) , 1 (6) ,P&(6) ,US( 
6) ,DS (6) ,LS$(1) ,RS(1) MS (1) ,A3336 

168 PROCS 

178 REPEAT: PROCST 

18@ REPEAT: PROCMA 

198 REPEAT: PROCL: PROCD: PROCM: UNTILOV3 

286 PROCG 

218 UNTIL ME%=@: PROCNXG 
226 UNTIL FALSE 
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248 ON ERROR OFF 132@ ENDPROC 
250 MODE 6:IF ERR=17 END 1336 : 
266 REPORT:PRINT " at line ";ERL 1348 DEFPROCSM: PROCSA: ?H$=9:COLOUR] : PR 
270 END INTTAB (J% ,K$*4) CHR$242; :COLOUR3: ENDPROC 
280: 1356 : 
1960 DEFPROCMA 1368 DEFPROCRM 
1010 CLS:CFS=FALSE: VDU23,1,0;9;9;9; 137@ X$=0: Y$=1 :M$=1 :Z$=A$:WS=FALSE 
1026 VDU19,3,6,0,9,9 1388 ENDPROC 
103@ PROCRM:PROCGM 1396 : 
1948 COLOUR2 14088 DEFPROCGM 
1650 FORI$=3TO27STEP4: PRINTTAB (9, 1%) ST 1418 X$(1)=FNRX:U$ (1) =3:L$ (1) =U$(1)+4+ 
RINGS (20,CHRS24@) ; NEXT: PRINTTAB(@,31)S RND (4) *4 
TRINGS (19,CHRS$249) ; 1420 X%(2)=FNRX: IFX$% (2) =X% (1) GOTO1 429 
1060 FORI$=A$TOA$+287STEP21 : SI$=STRING 143@ L$ (2) =31:U% (2) =L% (1) -RND (2) *4 
$(28,CHRS7) +CHRS@: NEXT 1446 FORI%=3TO6 
1876 A%?166=@:COLOUR1 1458 X%(I%) =PNRX:KS=0 
1080 FORI$=1TO6 :FORJ$=U% (I$) TOL (1%) 1460 FORJ%=1TOI$-1 
1698 IF (J%+1)MOD4=@ COLOUR]: PRINTTAB ( 1470 IFX% (1%) <>X% (J$) GOTO1 496 
X% (I$) -1,J%) CHR$252LBSCHR$253; :COLOUR] 148¢ IFK%=GK%=J$ELSEK$=-1 
ELSEPRINTTAB (X% (1%) ,J%) LBS; 1496 NEXT 
1106 K%=((J$+1) DIV4-1) *21+AS+X% (13) 1586 IFK%=0PROCNL:GOTO1550 
1110 ?K$=I$:NEXT: 1% (13) =6 1510 IFK%=-1GOTO1450 
1126 PRINTTAB (X% (1%) ,Y3 (1%) ) L$; :NEXT 1528 U$(I$) =U$ (KS) —3:L$ (I$) =31-L3 (KS) 
1138 COLOUR3 1530 IFU% (I$) <1 2ZANDL$ (I$) <12GOTO1 450 
1148 FORI$=1TOND$ 1546 IFU$(1I$%)<L$(I%)PROCNB ELSE PROCNT 
115@ PROCSA 1550 NEXT 
1160 ?H&=8: PRINTTAB (J%,K%*4+2) CHRS246; 1566 FORI$=1T06:US (I$) =MD$:DS (I$) =MDS: 
1176 A$(I$%) =J%:BS (I$) =K3*4+2 US (I$) =LUS:D$ (I%) =LD$:D% (I$) =RND(2)-1:Y 
1188 23 (I$) =A$+KS*21 :WS (I$) = % (IS) =(US (I$) +L% (1%) ) /2:NEXT 
1198 NEXT 1578 ENDPROC 
1200 FORI$=1TONM$: PROCSM:NEXT 1580 : 


1598 DEFPROCNL 

1688 US(1$)=-1+RND (5) *4:L% (1%) =US (1%) + 
8+4*RND (3) : IFL$ (I$) >31L3 (I$) =31 

1618 ENDPROC 

1626 : 

1638 DEFPROCNT 

1648 US(I%) =-1+RND (2) *4:L% (13) =US (13) + 
4+RND (2) *4 

1650 IFL% (1%) >=U% (K%) GOTO1 640 

166@ ENDPROC 

1678 : 

1688 DEFPROCNB 

1698 L$(I$) =35-RND (2) *4:U% (1%) =L3 (1%) - 
4-4*RND (2) 

1708 IFU% (1%) <=L% (K%) GOTO1690 

1716 ENDPROC 


1210 IFNC8=GENDPROC 1720 : 

1226 COLOUR3 1730 DEFENRX=4*RND (5) -3 

1236 FORI%=1TONC% 1740 : 

Leth we 175 DEFPROCL 

1256 ?H$=10:PRINTTAB (J%,K%*4)CHRS242; 1760 COLOUR) 

1260 NEXT 177G FORIS=1T06 

Le noe RON 178 IFD%(1%)GOTO1810 

1288 : 1790 PRINTTAB (X$ (13) ,¥3 (IS) ) US (I) ;2¥% 

pt ahaa (18) =¥3 (18) -2: IFY8 (I$) =U8 (18) D8 (18) =TRU 

1300 J$=RND(18) :K%=RND(7) :HB=AB+J3+K3* op 

a! . 1800 NEXT: ENDPROC 

1310 IF?H8<>70R? (H8-21)<>70R?(H8+1)<>7 181g PRINTTAB(X% (13) ,¥3 (1%) )DS (I$) 72¥8 
OR? (H-1) <>7OR? (H8-26) <>70R? (H8-22) <>7 (18) =¥3 (1) +2: IFY8 (18) =L8 (13) D8 (13) =PAL 
GOTO1 308 poet Hw 
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1826 NEXT: ENDPROC 


1840 DEFPROCCHAR 
1856 VDU23,249,255,129,255,129,66, 36,2 


1868 VDU23,241,255,255,255,9,0,8,0,8 
1876 VDU23,242,255,255,60,24,24,90,66, 


1886 VDU23, 243,60,98,126,66, 36,126,255 
1896 VDU23,244,189,189,60, 36, 36, 36, 180 
1988 VDU23,245,189,189,68, 36, 36, 36, 38, 


1918 VDU23,246,195,66,126,219,219,126, 
66,195 

1928 VDU23,247,66,66,231,66,66, 231,66, 
66 

1938 VDU23, 248, 204,51,264,51,204,51,29 
4,51 

1946 VDU23, 252,255, 255,255, 224,224,224 
1224,224 

1950 VDU23,253,255,255,255,7,7,7,747 
196@ VDU23,224,28,48,62,20,28,60,126,1 
89 

197@ VDU23,225,189,60,24,24,56, 194,200 
776 

1988 VDU23,226,189,60,24,24,28,23,18,2 
4 

1998 VDU23,227,189,66,24,24,28,23,18,4 
8 

2008 VDU23,228,189,66,24,24,56,104,280 


88 

"2016 VDU23,229,28,6,62,20,28,68,126,18 
9 

2628 VDU23,230,102,66,126,219,219,126, 
66,102 

2030 ENVELOPE]1,1,6,0,-6,280,100,206,1@ 
0,2,8,-1,120,118 

2048 ENDPROC 

2658 : 

2068 DEFPROCS 

2076 TES=CHRS19+CHRS8+CHR$8 

2080 ETS=CHRS8+CHRS$1 0: EES=CHRS8+4+CHRS11 
2698 EGS=CHRS11+CHRS$8:RS=CHR$17+CHRS$1 
2160 YS=CHRS174+CHR$2:WS=CHRS$17+CHRS$3 
2118 BS=CHR$324+CHRS$1 G+CHRS$8+CHRS$32 
212@ LS=CHR$241:LBS=CHRS32 

2130 LUS=LBS$+CHR$11+EGS$+L$ 

2148 LDS=LBS+CHRS10+CHRS$16+CHRS$8+L$ 
2156 MUS=LB$+EGS$+LBS+EES+L$+EE$+R$+CHR 
$244+YS+EES+CHR$243+RS 

2160 MDS=LBS+YS+EES$+CHR$11+LBS+ETS+LBS$ 
+ETS+CHRS243+ETS+RS+CHRS244+ETS+RS+L$ 
2178 TPS=YS+CHRS8+CHRS229+LBS+TES+R$:L 
$ (@) =TPS+CHR$227+LBS : LS (1) =TP$+CHR$228+ 
LBS 

2188 TPS=YS$+LBS+CHR$224+TES+LBS+RS: RS ( 
@) =TPS+CHRS$225: RS (1) =TPS+CHRS$226 

2198 TPS=YS+CHRS243+CHRS1 B+CHRS8+RS:MS 
(@) =TPS+CHRS244 :MS (1) =TP$+CHRS$245 
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2288 AS (@) =CHR$8+CHR$246+LBS 

2218 AS (1) =CHRS$8+CHRS236+LBS 

2228 BS (@)=LBS+CHRS246 

2238 BS (1) =LBS$+CHRS23 

2248 C$ (@) =CHRS$246:CS$ (1) =CHRS236 

2258 PS=AS (@) :SS=BS (G) :CS=CS$ (9) 

2266 DUS=LBS+EGS+LBS+EES$+L$+EES+WS+CHR 
$246+RS 

2278 DDS=LBS+WS+EES+LBS+ETS+CHRS10+CHR 
$246+ETS+RS+LS 

2286 CHS=RS$+CHRS$42+YS+CHRS42+WS+CHRS42 

2298 CVS=Y$+CHRS$42+ETS+RS+CHRS42+ETS+W 
$+CHRS42+ETS 

2300 ?AS=G:AS=AS+1 

2318 HSC%=G:NS="JOE ZERO" 

2320 ENDPROC 

2330 : 

2348 DEFPROCM 

2358 IFW%GOT0244¢ 

2360 IEFM% M$=@ELSEM$=1 

2378 P%=Z%+X%: IF?P$>7PROCE2: ENDPROC 
2388 IFINKEY-67GOTO24@GELSEIFINKEY-98G 
0T0242¢6 

2398 PRINTTAB (X%,Y%) MS (M$) : ENDPROC 
2408 IFP%?1>6PRINTTAB(X%,Y%) RS (M%) :X$= 


X%+1ELSEL%=P$?1 : PROCEN 
2410 ENDPROC 


2420 IFP%?-1>6PRINTTAB (X%, Y$) L$ (M&) :X% 
=X$-]ELSEL$=P$?~1 : PROCEN 

243 ENDPROC 

244 IFW$<@GOT02516 

2450 IFINKEY-67 TX%=1:PROCEX: ENDPROC 
246@ IFINKEY-98 TX$=-1:PROCEX:ENDPROC 
2476 Y%=Y$ (L$) 

2480 IFINKEY-73D% (L$) =0 ELSEIFINKEY-10 
5D% (L$) =] ELSEENDPROC 

2490 IFY% (L$) =U%(L%)D%(L$)=TRUE ELSEIF 
Y% (L8) =L$ (L$) D$ (L$) =FALSE 

2500 ENDPROC 

2510 We=W+1 : IFW$=0: PROCSM 

252 ENDPROC 

2530 : 

2540 DEFPROCEN 

2550 IFL$=6GOT02626 

2560 IFY%(L%) <>Y¥$+20RI% (L$) PRINTTAB (X% 
,Y%)MS (M%) :ENDPROC 

2576 SOUND1,1,100,2:PRINTTAB (X%,Y$) BS 
2580 US (L$) =MUS:DS (L$) =MDS:X$=X$ (L8) 
2590 PRINTTAB (X$,¥$) M$ (M8) 

2600 WS=1:1%(L3) =9 

2610 ENDPROC 

2620 IFX%=OPRINTTAB (@, Y%) BS:X$=19+ (YS= 
29) : PRINTTAB (X%, Y3) M$ (M$) : ENDPROC 

2630 IFX$>17 PRINTTAB(X$,Y%) BS:X3=0:PR 
INTTAB (X$, Y3) MS (MB) : ENDPROC 

2640 PRINTTAB (X$,Y$) MS (M8) 

265 ENDPROC 

2660 : 

2670 DEFPROCEX 

2680 IF (Y%(L%) +1) MOD4=GELSEENDPROC 
2696 SOUND1,1,200,2 » 
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2768 US(L%) =LUS$:D$(L%) =LD$:W3=FALSE 
2718 1%(L3) =0 

2728 Y%=Y% (L%) -2:2%=( (Y% (L&) +1) DIV4-1) 
*21+A3 

2730 PRINTTAB (X%,Y%) BS: X8=X3+TX% 

2740 PRINTTAB (X%,Y%) M$ (M%) : ENDPROC 
2758 : 

2768 DEFPROCD 

2770 IFE% Et=GELSEE$=1 

2780 PS=A$(E%) :S$=BS$ (E%) :C$=C$ (ES) 
2798 COLOUR3 

2806 FORDS=1TO5 

2810 IFD$>ND%: PROCDT (@) : NEXT: ENDPROC 
2828 IEW% (D%) GOTO2980 

2830 US=A% (D$) : VB=Z% (DB) +US: S$=BS (DE) 
2840 IFS%=Y$+1P% (D&) =US<X%: IFUS=X3NEXT 
: ENDPROC 

2850 IFP% (D%)GOTO2880 

2860 IFV%?-1>6ELSETS=V%?-1 : PROCDE: NEXT 
: ENDPROC 

2870 ?V%=7: PRINTTAB (U%,S%) PS:A% (D%) =U% 
-1: IFV$?-1<9V$?-1=8:NEXT: ENDPROC ELSEPR 
OCE1M: NEXT: ENDPROC 

2888 IFV%?1>6ELSETS$=V%?1 : PROCDE: NEXT: E 
NDPROC 

2898 ?V%=7:PRINTTAB (U%,S%) S$:A% (D&) =U% 
+1: IFV3?1<9V%?1=8:NEXT:ENDPROC ELSEPROC 
E1P:NEXT: ENDPROC 

2980 IEW% (D%) <@GOTO2980 

2910 RS=Y$-Y% (W% (D%) ) +2 

2928 IFR%=@PROCDX: NEXT: ENDPROC 

2938 IFR%<@GOTO2960 

2948 IFNOTD$% (W% (D%) ) PROCDX 

2958 NEXT: ENDPROC 

2968 IFD% (W% (DS) ) PROCDX 

2978 NEXT: ENDPROC 

2986 W% (D%) =W% (D%) +1 

2996 IFW%(D%)=@ PROCRE:SOUND3,1,200,10 
3086 NEXT: ENDPROC 

3018 : 

3820 DEFPROCDE 

3630 IFS%=Y% (T$) -1ELSEIFTS=GP% (D$) =NOT 
P%(D%) s:ENDPROC ELSEPRINTTAB (U%,S%)CS:EN 
DPROC 

3649 IFS%$+1=U% (TS) ORS$+1 =L% (T$) GOTO3G9 
i) 

3658 IFY%<=S%GOTO3G8G 

3668 IFNOTD% (T%) ENDPROC 

3878 GOTO3896 

3688 IFD% (T%) ENDPROC 

3098 IFI%(T%) ENDPROC 

3108 ?V3=7 

3116 SOUND1,1,100,2:PRINTTAB (U%,S%) LBS 
3128 US (TS) =DUS:DS$ (TS) =DD$:A% (D3) =X% (T 


3138 PRINTTAB (A$ (D%) ,S%)CS 
3148 W% (DS) =T$: 13 (TS) =D 
3158 ENDPROC 


3186 IF(Y%(W%(D$%) ) +1) MOD4=@ELSEENDPROC 

3198 SOUND1,3,206,2 

3208 TS=WS (DS) :WS (DS) =8: 13 (TS) = 

3219 US (TS) =LUS:DS$ (TS) =LD$ 3B (DS) =Y3 (T 
$)-1 

3226 PRINTTAB (A%(D%) ,B% (D%) ) LBS 

3230 IFY%=B%(D%)-1 P%(D%) =A% (DS) <x$ 

3248 IFP%(D$) A%(D%)=A% (D%) +1 ELSEA$ (DS 
) =A% (DS) -1 

3258 PRINTTAB (A% (D%) ,B% (D%) ) CS (ES) 

3266 2% (DS) =( (Y3 (TS) +1) DIV4-1) *214+A3:? 
(Z% (DS) +A% (DS) ) =8 

3278 ENDPROC 

3288 : 

3298 DEFPROCEIM 

330G US=U$S-1 : VS=V3-1 : GOTO3348 

3318 : 

3328 DEFPROCE1P 

3330 US=USt1 : V3=V3+1 

3340 IF?V%=1 OCFS=TRUE 

3358 IF?V$>10 EX%=D%:D$=?V%-10:SOUND1, 
1,206,108: PROCRE: D$=EX$ : A$ (DS) =A% (D3) +1: 
?V%$=8 : ENDPROC 

3368 ?V%=10+D$:SOUND1,1,200,10:SOUND1, 
1,206,18:SOUND2,2,200,30 

3378 FOREX%=1T036:COLOUREX$MOD4 

3388 PRINTTAB(U%,B% (D%) ) ;: VDU246,8,11, 
247,8,11,242 

3396 NEXT 

3488 IFCFSPROCCL: ENDPROC 

3418 COLOUR2: PRINTTAB (U%,B% (D%) -2) CHRS 
246 :COLOUR3:W3% (D$) =-58 

3428 ENDPROC 

3430 : 

3449 DEFPROCEA: IFD$=ND%$GOTO346GELSEAS ( 
D%) =A% (ND%) :B% (D$) =B% (ND%) :W% (D$) =WS (ND 
$) Z% (D%) =ZB (NDS) 

3450 IFWS(ND%)<@ ?(Z%(ND%) +A% (NDS) ) =10 
+D% 

3468 ND%=ND%-1 :D$=9 : DD$=DD3+1 : IFND$=G0 
V%=TRUE 

3478 ENDPROC 

3488 : 

3499 DEFPROCRE: PRINTTAB (A$ (D$) ,B& (D$) - 
2) LBS; : VDU8,18,10,246:W% (D%) =: PROCSM:E 
NDPROC 

3568 : 

3510 DEFPROCER: D%=?P%-19:?P%=7:COLOURI 
: PRINTTAB (A% (D3) , BS (D$) -2) CHR$246:COLOU 
R3: PROCEA: SOUND@, 1,6, 28: ENDPROC 

3526 : 

3536 DEFPROCE2 

3540 IF?P%>1@PROCER: ENDPROC 

3550 IF?P$>8W3=-20: ?PS=7 : PRINTTAB (X$,Y 
$-1) LBS: SOUND1, 1,200,208: ENDPROC 

3568 SOUND1,1,208,20:PROCDT (25) 

3570 PRINTTAB (X$, Y%) CHR$248: PRINTTAB (X 
%,Y%+1) CHRS248 : PROCDT (35) : PRINTTAB (X%,Y 
$) BS 

3588 MES=ME%-1 : DD$=DD%+1 : OVS=TRUE n 
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3598 ENDPROC 

3600 : 

3618 DEFPROCDT (I%) : T=TIME: REPEATUNTILT 
IME>T+1I%: ENDPROC 

3626 : 

3638 DEFPROCG 

3646 CLS: SC%=SC%+259+2G98*DDS 

3658 IFSCSDIV2008<>BC% MES=ME%+1 

3668 IFME$=GENDPROC 

3676 VDU19,3,2,9,9,9 

3688 PRINTTAB(1,1)STRINGS(6,CHS) TAB(G, 
1) STRINGS (18,CVS$) TAB (19,1) STRINGS (18,CV 
$) TAB (@, 30) YS+CHRS$42+STRINGS (6,CHS) +YS+ 
CHRS$42; 

3698 PRINTTAB (5,2) YS+"ELEVASION"TAB (4, 
4) "SCORE BOARD"TAB(4,6)"FOR SHEET ";G$; 
TAB (1,7) STRINGS (6,CHS) ; 

3700 PRINTTAB(2,9) "YOUR SCORE ";SC% 

3718 PRINTTAB(2,11)"HIGH SCORE ";HSC$% 

3726 PRINTTAB(2,14)RS"DROIDS DESTROYED 
" 

3738 X$=DD$: IFX$>8 X3=8 
3748 PRINTTAB (2,16) STRINGS (X%,CHRS246+ 
CHRS9) 

3750 PRINTTAB(2,20)YS"MEN LEFT" 

3768 X$=ME$: IFX%>8 X%=8 

3776 PRINTTAB (2,22) STRINGS (X%,MS (@) +CH 
RS$11+CHRS9) ; 

3788 X%=1 

3798 IFSC&DIV28G6G<>BCSANDX%=1 PRINTTAB ( 
2,25) YS"BONUS MAN" ELSEPRINTTAB (2,25) SP 
C(1@) 

3800 PRINTTAB(1,28)RS"RETURN TO CONTIN 
UE" 

381G IFINKEY-74GOT03830 

3828 IFTIME MOD15=@ X%=X%EOR1 :GOTO379@ 

ELSEGOTO3819 

3838 VDU19,3,6,6,9,0:O0VS=FALSE 

3840 G%=G$+t1 :DD$=9:BC3=SCSDIV2000 

3858 IFG%<=5GOTO3899 

3868 ND%=G$-5: IFND$>5ND%=5 

3878 NC%=G3-5: IFNC3>8NC3=8 

3888 NM%=2+ND%3: ENDPROC 

3898 ND%=G%:NM3$=2+ND3 

3968 ENDPROC 

3918 : 

3928 DEFPROCST 


3930 G$=1 :ND8=1 :NM$=3:NC8=@:DD$=0:MES= 
3:0V$=FALSE: SC3=G:BC3=0 
HINTS HINTS 


FREEZING A PROGRAM IN BASIC - Peter Corlett 


HINTS 


3948 ENDPROC 

3958 : 

3968 DEFPROCCL 

3970 CFS=FALSE:SOUND1,1,200,20 

3988 IFND$=SENDPROC 

3998 NDS=ND%+1 : PROCSM 

4008 A%(ND%) =A% (DS) +1 :BS (NDS) =B3 (DS) :Z 
% (ND$) =Z% (DS) : WS (ND%) =0 

4616 ENDPROC 

4626 : 

4936 DEFPROCNXG 

4048 CLS:VDU19,3,2,9,0,0 

4050 PRINTTAB(1,1) STRINGS (6,CHS) TAB(G, 
1) STRINGS (18,CV$) TAB(19,1) STRINGS (10,CV 
$) TAB (@, 38) YS+CHR$42+STRINGS (6,CHS) +YS$+ 
CHR$42; 

4060 PRINTTAB(5,2) YS$+"ELEVASION"TAB (4, 
4) "GAME OVER"; TAB (1,5) STRINGS (6,CHS) ; 

4076 PRINTTAB(3,7) "THE HISCORE WAS"TAB 
(8,9) ;HSC$ TAB(3,11)"BY "NS 

4080 PRINTTAB(3,14)YS"YOUR SCORE WAS " 
TAB (8,16) ;SC$ 

4090 IFSC%<=HSC% GOTO4200 

4106 PRINTTAB(3,18)"THE NEW HISCORE" 

4118 PRINTTAB(3,21)RS"ENTER YOUR NAME" 

4120 *FX21,@ 

4130 PRINTTAB (3,23) "-->"YS; 

4146 NS="":REPEAT IK=GET 

4158 IFIK=13GOT0418¢0 

4160 IFIK=127ANDLENNS<>@PRINTCHRSIK; :N 
S=LEFTS (NS, LENNS-1) :GOTO418@ ELSEIFIK=1 
27 GOTO4188 

4176 NS=NS+CHRSIK: PRINTCHRSIK; 

41806 UNTIL IK=130R LENNS=12 

4198 HSC%=SC% 

4206 PRINTTAB(4,26)RS"PRESS RETURN"TAB 
(2,28)"FOR ANOTHER GAME"; : PROCDT(10@) :R 
EPEAT UNTILINKEY-74 

4210 ENDPROC 

4226 : 

4230 DEFPROCFP 

4249 CLS:PRINTTAB (13,3) "ELEVASION" 

4250 PRINTTAB(16,12) ;"by" 

4266 PRINTTAB(12,14)"D.J.Pilling " 

4276 PRINTTAB(6,20)"Press any key to s 
tart." 

4288 G=GET:CLS 

4296 ENDPROC 


HINTS HINTS 


To make a Basic program stop when 'F' is pressed use: 


IF INKEY$(9)=70 REPEAT UNTIL GETS="E" 


This line must be inserted in the main program loop and will cause the program to 
halt when 'F' is pressed. The program will continue when 'F' is pressed again. This 
should be inserted as a line in the middle of the main loop of the game. & 
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*h More exciting than 
moving arcade game. The purpose of the many yames of a similar nature, and 
game is to direct the snake around the nce played, proves to be surprisingly 


screen, eating up the randomly placed 
objects. With every bite that it takes, 
the tail grows lonyer and tne snake 


moves faster. Just to complicate 
things, there are also -ertain 
scattered obstacles wnich must be 
avoided. 


To even complete the first screen 
requires skill and concentration. 
Further frames use different shaped 
playing areas, which as well as addiny 
Variety, require much yreater skill to 
complete. 


Snake costs £4.00 inc VAT. Please add 5Up post & packing. 


Overseas orders: £5.50 inc post & packing - VAT not ~harged. 
Send order with membership number to: 
BEEBUGSOFT, P.O. Box 109, High Wycombe, Bucks @ 
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THE BEST OF ELBUG 


Many of the best programs published in ELBUG have been collected together and 
published by Penguin Books under the name "Games and other programs for the Acorn 
Electron" at £3.95. This book is part of the Penguin Acorn Computer Library and at 
present there is just one other title available though others are planned. 


There are 28 programs in all in four different categories: 
Action Games 

Munch-Man Mars Lander Invasion 

Robot Attack Hedgehog 


Thought games 
Higher/Lower Five-Dice , Life 
Anagrams Return of the Diamond 


Visual Displays 
Union Jack Square Dance Ellipto 
Screenplay 3-D Rotation 


Utilities 
Sound Wizard Bad Program Lister 
3-D Lettering Bad Program Rescue 
Double Height Text 


__FENGIN AORN COMP ITER BOE 
So ae 


All 20 programs are now available on cassette from our software address (in High 
Wycombe) price £7 to members and £9 to non-members, plus 50@p post & packing in 
either case. 
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BACK ISSUES AND SUBSCRIPTIONS 


BACK ISSUES (Members only) SUBSCRIPTIONS 


All back issues will be kept in print Send all applications for membership, 
(from November 1983). Send 9@p per amd = subscription queries to the 
issue PLUS an AS SAE. to the subscriptions address. 
subscriptions address. Back copies of 
BEEBUG are available to ELBUG members MEMBERSHIP COSTS: 
at this same price. This offer is for U.K. 
members only, so it is ESSENTIAL to £5.96 for 6 months (5 issues) 
quote your membership number with your £9.98 for 1 year (19 issues) 
order. Please note that the advertising Eire and Europe 
supplements are not supplied with back Membership £16 for one year. 
issues. Middle East £19 
Americas and Africa £21 

Subscription and Software Address Elsewhere £23 

Payments in Sterling preferred. 


ELBUG SOFTWARE (Members only) 
PO BOX 109 


High Wycombe This is available from the software 
Bucks address. 


MAGAZINE CONTRIBUTIONS 
AND TECHNICAL QUERIES 


Please send all contributions and ; ' 

technical queries to the editorial Editorial Address 

address opposite. All contributions 

published in the magazine will be paid 

for at the rate of £25 per page. ELBUG 
PO Box 58 

We will also pay £10 for the best Hint St Albans 

or Tip that we publish, and £5 to the Herts 

next best. Please send all editorial 

material to the editorial address 

opposite. If you require a reply it is 

essential to quote your membership 

number and enclose an SAE. 
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